242 PURE elemental module function constructWcauchy_RK5(cs)
result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK5
247 real(RKC) ,
intent(in) :: cs
253 PURE elemental module function constructWcauchy_RK4(cs)
result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK4
258 real(RKC) ,
intent(in) :: cs
264 PURE elemental module function constructWcauchy_RK3(cs)
result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK3
269 real(RKC) ,
intent(in) :: cs
275 PURE elemental module function constructWcauchy_RK2(cs)
result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK2
280 real(RKC) ,
intent(in) :: cs
286 PURE elemental module function constructWcauchy_RK1(cs)
result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK1
291 real(RKC) ,
intent(in) :: cs
394 PURE elemental module function constructWsin_RK5(omega)
result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK5
399 real(RKC) ,
intent(in) :: omega
405 PURE elemental module function constructWsin_RK4(omega)
result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK4
410 real(RKC) ,
intent(in) :: omega
416 PURE elemental module function constructWsin_RK3(omega)
result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK3
421 real(RKC) ,
intent(in) :: omega
427 PURE elemental module function constructWsin_RK2(omega)
result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK2
432 real(RKC) ,
intent(in) :: omega
438 PURE elemental module function constructWsin_RK1(omega)
result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK1
443 real(RKC) ,
intent(in) :: omega
546 PURE elemental module function constructWcos_RK5(omega)
result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK5
551 real(RKC) ,
intent(in) :: omega
557 PURE elemental module function constructWcos_RK4(omega)
result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK4
562 real(RKC) ,
intent(in) :: omega
568 PURE elemental module function constructWcos_RK3(omega)
result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK3
573 real(RKC) ,
intent(in) :: omega
579 PURE elemental module function constructWcos_RK2(omega)
result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK2
584 real(RKC) ,
intent(in) :: omega
590 PURE elemental module function constructWcos_RK1(omega)
result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK1
595 real(RKC) ,
intent(in) :: omega
699 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 ,
4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 ,
7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 ,
9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
724 [
4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
725 ,
3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
726 ,
2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
727 ,
1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
749 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
750 ,
2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
751 ,
4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
752 ,
5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
753 ,
7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
754 ,
8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
755 ,
9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
756 ,
9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
778 [
2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
779 ,
2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
780 ,
1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
781 ,
1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
782 ,
1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
783 ,
1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
784 ,
6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
785 ,
2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
884 [
1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
885 ,
4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
886 ,
6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
887 ,
8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
888 ,
9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
910 [
2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
911 ,
2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
912 ,
2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
913 ,
1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
914 ,
6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
936 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
937 ,
1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
938 ,
2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
939 ,
4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
940 ,
5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
941 ,
6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
942 ,
7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
943 ,
8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
944 ,
9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
945 ,
9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
946 ,
9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
968 [
1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
969 ,
1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
970 ,
1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
971 ,
1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
972 ,
1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
973 ,
1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
974 ,
9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
975 ,
7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
976 ,
5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
977 ,
3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
978 ,
1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
1075 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1076 ,
2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1077 ,
3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1078 ,
5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1079 ,
7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1080 ,
8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1081 ,
9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1082 ,
9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1104 [
2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1105 ,
1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1106 ,
1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1107 ,
1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1108 ,
1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1109 ,
1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1110 ,
7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1111 ,
3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1133 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1134 ,
1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1135 ,
2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1136 ,
2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1137 ,
3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1138 ,
4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1139 ,
5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1140 ,
6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1141 ,
7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1142 ,
7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1143 ,
8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1144 ,
8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1145 ,
9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1146 ,
9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1147 ,
9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1148 ,
9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1170 [
1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1171 ,
1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1172 ,
9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1173 ,
9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1174 ,
9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1175 ,
8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1176 ,
8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1177 ,
7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1178 ,
6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1179 ,
6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1180 ,
5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1181 ,
4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1182 ,
3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1183 ,
2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1184 ,
1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1185 ,
5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1284 [
7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1285 ,
2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1286 ,
3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1287 ,
5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1288 ,
6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1289 ,
7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1290 ,
8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1291 ,
9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1292 ,
9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1293 ,
9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1315 [
1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1316 ,
1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1317 ,
1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1318 ,
1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1319 ,
1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1320 ,
1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1321 ,
8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1322 ,
6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1323 ,
4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1324 ,
1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1346 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1347 ,
7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1348 ,
1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1349 ,
2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1350 ,
3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1351 ,
3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1352 ,
4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1353 ,
5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1354 ,
5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1355 ,
6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1356 ,
6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1357 ,
7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1358 ,
7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1359 ,
8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1360 ,
8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1361 ,
9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1362 ,
9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1363 ,
9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1364 ,
9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1365 ,
9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1366 ,
9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1388 [
7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1389 ,
7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1390 ,
7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1391 ,
7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1392 ,
7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1393 ,
7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1394 ,
6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1395 ,
6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1396 ,
6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1397 ,
5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1398 ,
5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1399 ,
5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1400 ,
4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1401 ,
4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1402 ,
3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1403 ,
3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1404 ,
2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1405 ,
2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1406 ,
1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1407 ,
8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1408 ,
3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1507 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1508 ,
1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1509 ,
2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1510 ,
3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1511 ,
4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1512 ,
5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1513 ,
6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1514 ,
7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1515 ,
8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1516 ,
8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1517 ,
9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1518 ,
9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1519 ,
9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1541 [
1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1542 ,
1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1543 ,
1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1544 ,
1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1545 ,
1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1546 ,
1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1547 ,
9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1548 ,
8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1549 ,
6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1550 ,
5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1551 ,
4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1552 ,
2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1553 ,
1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1575 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1576 ,
6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1577 ,
1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1578 ,
1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1579 ,
2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1580 ,
3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1581 ,
3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1582 ,
4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1583 ,
4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1584 ,
5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1585 ,
5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1586 ,
6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1587 ,
6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1588 ,
7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1589 ,
7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1590 ,
7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1591 ,
8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1592 ,
8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1593 ,
8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1594 ,
9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1595 ,
9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1596 ,
9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1597 ,
9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1598 ,
9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1599 ,
9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1600 ,
9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1622 [
6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1623 ,
6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1624 ,
6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1625 ,
6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1626 ,
5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1627 ,
5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1628 ,
5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1629 ,
5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1630 ,
5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1631 ,
5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1632 ,
5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1633 ,
4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1634 ,
4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1635 ,
4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1636 ,
4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1637 ,
3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1638 ,
3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1639 ,
3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1640 ,
2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1641 ,
2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1642 ,
2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1643 ,
1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1644 ,
1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1645 ,
9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1646 ,
5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1647 ,
1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1746 [
5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1747 ,
1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1748 ,
2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1749 ,
3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1750 ,
4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1751 ,
5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1752 ,
6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1753 ,
6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1754 ,
7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1755 ,
8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1756 ,
8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1757 ,
9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1758 ,
9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1759 ,
9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1760 ,
9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1782 [
1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1783 ,
1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1784 ,
9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1785 ,
9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1786 ,
9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1787 ,
8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1788 ,
8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1789 ,
7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1790 ,
6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1791 ,
5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1792 ,
4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1793 ,
3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1794 ,
2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1795 ,
1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1796 ,
7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1819 [
0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1820 ,
5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1821 ,
1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1822 ,
1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1823 ,
2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1824 ,
2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1825 ,
3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1826 ,
3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1827 ,
4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1828 ,
4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1829 ,
4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1830 ,
5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1831 ,
5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1832 ,
6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1833 ,
6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1834 ,
6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1835 ,
7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1836 ,
7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1837 ,
7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1838 ,
8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1839 ,
8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1840 ,
8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1841 ,
9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1842 ,
9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1843 ,
9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1844 ,
9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1845 ,
9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1846 ,
9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1847 ,
9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1848 ,
9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1849 ,
9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1871 [
5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1872 ,
5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1873 ,
5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1874 ,
5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1875 ,
5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1876 ,
4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1877 ,
4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1878 ,
4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1879 ,
4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1880 ,
4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1881 ,
4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1882 ,
4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1883 ,
4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1884 ,
4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1885 ,
3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1886 ,
3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1887 ,
3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1888 ,
3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1889 ,
3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1890 ,
2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1891 ,
2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1892 ,
2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1893 ,
2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1894 ,
1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1895 ,
1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1896 ,
1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1897 ,
1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1898 ,
9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1899 ,
6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1900 ,
3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1901 ,
1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1974 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
1979 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
1984 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
1989 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
1994 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
1999 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
2004 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2009 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
2014 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2019 real(RKC) ,
intent(out) ,
contiguous :: nodeK(:), weightG(:), weightK(:)
2026 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2031 integer(IK) ,
intent(in) :: order
2032 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2037 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2042 integer(IK) ,
intent(in) :: order
2043 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2048 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2053 integer(IK) ,
intent(in) :: order
2054 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2059 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2064 integer(IK) ,
intent(in) :: order
2065 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2070 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2075 integer(IK) ,
intent(in) :: order
2076 real(RKC) ,
intent(out) ,
allocatable :: nodeK(:), weightG(:), weightK(:)
2210 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2215 procedure(
real(RKC)) :: getFunc
2216 real(RKC) ,
intent(in) :: lb
2217 real(RKC) ,
intent(in) :: ub
2218 type(GK15_type) ,
intent(in) :: qrule
2219 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2225 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2230 procedure(
real(RKC)) :: getFunc
2231 real(RKC) ,
intent(in) :: lb
2232 real(RKC) ,
intent(in) :: ub
2233 type(GK15_type) ,
intent(in) :: qrule
2234 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2240 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2245 procedure(
real(RKC)) :: getFunc
2246 real(RKC) ,
intent(in) :: lb
2247 real(RKC) ,
intent(in) :: ub
2248 type(GK15_type) ,
intent(in) :: qrule
2249 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2255 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2260 procedure(
real(RKC)) :: getFunc
2261 real(RKC) ,
intent(in) :: lb
2262 real(RKC) ,
intent(in) :: ub
2263 type(GK15_type) ,
intent(in) :: qrule
2264 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2270 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2275 procedure(
real(RKC)) :: getFunc
2276 real(RKC) ,
intent(in) :: lb
2277 real(RKC) ,
intent(in) :: ub
2278 type(GK15_type) ,
intent(in) :: qrule
2279 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2287 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2292 procedure(
real(RKC)) :: getFunc
2293 real(RKC) ,
intent(in) :: lb
2294 type(pinf_type) ,
intent(in) :: ub
2295 type(GK15_type) ,
intent(in) :: qrule
2296 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2302 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2307 procedure(
real(RKC)) :: getFunc
2308 real(RKC) ,
intent(in) :: lb
2309 type(pinf_type) ,
intent(in) :: ub
2310 type(GK15_type) ,
intent(in) :: qrule
2311 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2317 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2322 procedure(
real(RKC)) :: getFunc
2323 real(RKC) ,
intent(in) :: lb
2324 type(pinf_type) ,
intent(in) :: ub
2325 type(GK15_type) ,
intent(in) :: qrule
2326 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2332 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2337 procedure(
real(RKC)) :: getFunc
2338 real(RKC) ,
intent(in) :: lb
2339 type(pinf_type) ,
intent(in) :: ub
2340 type(GK15_type) ,
intent(in) :: qrule
2341 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2347 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2352 procedure(
real(RKC)) :: getFunc
2353 real(RKC) ,
intent(in) :: lb
2354 type(pinf_type) ,
intent(in) :: ub
2355 type(GK15_type) ,
intent(in) :: qrule
2356 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2364 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2369 procedure(
real(RKC)) :: getFunc
2370 type(ninf_type) ,
intent(in) :: lb
2371 real(RKC) ,
intent(in) :: ub
2372 type(GK15_type) ,
intent(in) :: qrule
2373 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2379 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2384 procedure(
real(RKC)) :: getFunc
2385 type(ninf_type) ,
intent(in) :: lb
2386 real(RKC) ,
intent(in) :: ub
2387 type(GK15_type) ,
intent(in) :: qrule
2388 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2394 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2399 procedure(
real(RKC)) :: getFunc
2400 type(ninf_type) ,
intent(in) :: lb
2401 real(RKC) ,
intent(in) :: ub
2402 type(GK15_type) ,
intent(in) :: qrule
2403 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2409 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2414 procedure(
real(RKC)) :: getFunc
2415 type(ninf_type) ,
intent(in) :: lb
2416 real(RKC) ,
intent(in) :: ub
2417 type(GK15_type) ,
intent(in) :: qrule
2418 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2424 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2429 procedure(
real(RKC)) :: getFunc
2430 type(ninf_type) ,
intent(in) :: lb
2431 real(RKC) ,
intent(in) :: ub
2432 type(GK15_type) ,
intent(in) :: qrule
2433 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2441 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2443 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2446 procedure(
real(RKC)) :: getFunc
2447 type(ninf_type) ,
intent(in) :: lb
2448 type(pinf_type) ,
intent(in) :: ub
2449 type(GK15_type) ,
intent(in) :: qrule
2450 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2456 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2461 procedure(
real(RKC)) :: getFunc
2462 type(ninf_type) ,
intent(in) :: lb
2463 type(pinf_type) ,
intent(in) :: ub
2464 type(GK15_type) ,
intent(in) :: qrule
2465 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2471 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2476 procedure(
real(RKC)) :: getFunc
2477 type(ninf_type) ,
intent(in) :: lb
2478 type(pinf_type) ,
intent(in) :: ub
2479 type(GK15_type) ,
intent(in) :: qrule
2480 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2486 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2491 procedure(
real(RKC)) :: getFunc
2492 type(ninf_type) ,
intent(in) :: lb
2493 type(pinf_type) ,
intent(in) :: ub
2494 type(GK15_type) ,
intent(in) :: qrule
2495 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2501 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2506 procedure(
real(RKC)) :: getFunc
2507 type(ninf_type) ,
intent(in) :: lb
2508 type(pinf_type) ,
intent(in) :: ub
2509 type(GK15_type) ,
intent(in) :: qrule
2510 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2526 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2531 procedure(
real(RKC)) :: getFunc
2532 real(RKC) ,
intent(in) :: lb
2533 real(RKC) ,
intent(in) :: ub
2534 type(GK21_type) ,
intent(in) :: qrule
2535 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2541 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2546 procedure(
real(RKC)) :: getFunc
2547 real(RKC) ,
intent(in) :: lb
2548 real(RKC) ,
intent(in) :: ub
2549 type(GK21_type) ,
intent(in) :: qrule
2550 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2556 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2561 procedure(
real(RKC)) :: getFunc
2562 real(RKC) ,
intent(in) :: lb
2563 real(RKC) ,
intent(in) :: ub
2564 type(GK21_type) ,
intent(in) :: qrule
2565 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2571 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2576 procedure(
real(RKC)) :: getFunc
2577 real(RKC) ,
intent(in) :: lb
2578 real(RKC) ,
intent(in) :: ub
2579 type(GK21_type) ,
intent(in) :: qrule
2580 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2586 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2591 procedure(
real(RKC)) :: getFunc
2592 real(RKC) ,
intent(in) :: lb
2593 real(RKC) ,
intent(in) :: ub
2594 type(GK21_type) ,
intent(in) :: qrule
2595 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2603 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2608 procedure(
real(RKC)) :: getFunc
2609 real(RKC) ,
intent(in) :: lb
2610 type(pinf_type) ,
intent(in) :: ub
2611 type(GK21_type) ,
intent(in) :: qrule
2612 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2618 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2623 procedure(
real(RKC)) :: getFunc
2624 real(RKC) ,
intent(in) :: lb
2625 type(pinf_type) ,
intent(in) :: ub
2626 type(GK21_type) ,
intent(in) :: qrule
2627 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2633 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2638 procedure(
real(RKC)) :: getFunc
2639 real(RKC) ,
intent(in) :: lb
2640 type(pinf_type) ,
intent(in) :: ub
2641 type(GK21_type) ,
intent(in) :: qrule
2642 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2648 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2653 procedure(
real(RKC)) :: getFunc
2654 real(RKC) ,
intent(in) :: lb
2655 type(pinf_type) ,
intent(in) :: ub
2656 type(GK21_type) ,
intent(in) :: qrule
2657 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2663 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2668 procedure(
real(RKC)) :: getFunc
2669 real(RKC) ,
intent(in) :: lb
2670 type(pinf_type) ,
intent(in) :: ub
2671 type(GK21_type) ,
intent(in) :: qrule
2672 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2680 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2682 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2685 procedure(
real(RKC)) :: getFunc
2686 type(ninf_type) ,
intent(in) :: lb
2687 real(RKC) ,
intent(in) :: ub
2688 type(GK21_type) ,
intent(in) :: qrule
2689 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2695 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2700 procedure(
real(RKC)) :: getFunc
2701 type(ninf_type) ,
intent(in) :: lb
2702 real(RKC) ,
intent(in) :: ub
2703 type(GK21_type) ,
intent(in) :: qrule
2704 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2710 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2715 procedure(
real(RKC)) :: getFunc
2716 type(ninf_type) ,
intent(in) :: lb
2717 real(RKC) ,
intent(in) :: ub
2718 type(GK21_type) ,
intent(in) :: qrule
2719 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2725 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2730 procedure(
real(RKC)) :: getFunc
2731 type(ninf_type) ,
intent(in) :: lb
2732 real(RKC) ,
intent(in) :: ub
2733 type(GK21_type) ,
intent(in) :: qrule
2734 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2740 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2745 procedure(
real(RKC)) :: getFunc
2746 type(ninf_type) ,
intent(in) :: lb
2747 real(RKC) ,
intent(in) :: ub
2748 type(GK21_type) ,
intent(in) :: qrule
2749 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2757 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2762 procedure(
real(RKC)) :: getFunc
2763 type(ninf_type) ,
intent(in) :: lb
2764 type(pinf_type) ,
intent(in) :: ub
2765 type(GK21_type) ,
intent(in) :: qrule
2766 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2772 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2777 procedure(
real(RKC)) :: getFunc
2778 type(ninf_type) ,
intent(in) :: lb
2779 type(pinf_type) ,
intent(in) :: ub
2780 type(GK21_type) ,
intent(in) :: qrule
2781 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2787 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2792 procedure(
real(RKC)) :: getFunc
2793 type(ninf_type) ,
intent(in) :: lb
2794 type(pinf_type) ,
intent(in) :: ub
2795 type(GK21_type) ,
intent(in) :: qrule
2796 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2802 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2807 procedure(
real(RKC)) :: getFunc
2808 type(ninf_type) ,
intent(in) :: lb
2809 type(pinf_type) ,
intent(in) :: ub
2810 type(GK21_type) ,
intent(in) :: qrule
2811 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2817 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2822 procedure(
real(RKC)) :: getFunc
2823 type(ninf_type) ,
intent(in) :: lb
2824 type(pinf_type) ,
intent(in) :: ub
2825 type(GK21_type) ,
intent(in) :: qrule
2826 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2842 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2847 procedure(
real(RKC)) :: getFunc
2848 real(RKC) ,
intent(in) :: lb
2849 real(RKC) ,
intent(in) :: ub
2850 type(GK31_type) ,
intent(in) :: qrule
2851 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2857 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2862 procedure(
real(RKC)) :: getFunc
2863 real(RKC) ,
intent(in) :: lb
2864 real(RKC) ,
intent(in) :: ub
2865 type(GK31_type) ,
intent(in) :: qrule
2866 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2872 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2877 procedure(
real(RKC)) :: getFunc
2878 real(RKC) ,
intent(in) :: lb
2879 real(RKC) ,
intent(in) :: ub
2880 type(GK31_type) ,
intent(in) :: qrule
2881 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2887 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2892 procedure(
real(RKC)) :: getFunc
2893 real(RKC) ,
intent(in) :: lb
2894 real(RKC) ,
intent(in) :: ub
2895 type(GK31_type) ,
intent(in) :: qrule
2896 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2902 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2907 procedure(
real(RKC)) :: getFunc
2908 real(RKC) ,
intent(in) :: lb
2909 real(RKC) ,
intent(in) :: ub
2910 type(GK31_type) ,
intent(in) :: qrule
2911 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2919 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2924 procedure(
real(RKC)) :: getFunc
2925 real(RKC) ,
intent(in) :: lb
2926 type(pinf_type) ,
intent(in) :: ub
2927 type(GK31_type) ,
intent(in) :: qrule
2928 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2934 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
2939 procedure(
real(RKC)) :: getFunc
2940 real(RKC) ,
intent(in) :: lb
2941 type(pinf_type) ,
intent(in) :: ub
2942 type(GK31_type) ,
intent(in) :: qrule
2943 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2949 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
2954 procedure(
real(RKC)) :: getFunc
2955 real(RKC) ,
intent(in) :: lb
2956 type(pinf_type) ,
intent(in) :: ub
2957 type(GK31_type) ,
intent(in) :: qrule
2958 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2964 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
2969 procedure(
real(RKC)) :: getFunc
2970 real(RKC) ,
intent(in) :: lb
2971 type(pinf_type) ,
intent(in) :: ub
2972 type(GK31_type) ,
intent(in) :: qrule
2973 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2979 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
2984 procedure(
real(RKC)) :: getFunc
2985 real(RKC) ,
intent(in) :: lb
2986 type(pinf_type) ,
intent(in) :: ub
2987 type(GK31_type) ,
intent(in) :: qrule
2988 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
2996 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
3001 procedure(
real(RKC)) :: getFunc
3002 type(ninf_type) ,
intent(in) :: lb
3003 real(RKC) ,
intent(in) :: ub
3004 type(GK31_type) ,
intent(in) :: qrule
3005 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3011 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3016 procedure(
real(RKC)) :: getFunc
3017 type(ninf_type) ,
intent(in) :: lb
3018 real(RKC) ,
intent(in) :: ub
3019 type(GK31_type) ,
intent(in) :: qrule
3020 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3026 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3031 procedure(
real(RKC)) :: getFunc
3032 type(ninf_type) ,
intent(in) :: lb
3033 real(RKC) ,
intent(in) :: ub
3034 type(GK31_type) ,
intent(in) :: qrule
3035 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3041 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3046 procedure(
real(RKC)) :: getFunc
3047 type(ninf_type) ,
intent(in) :: lb
3048 real(RKC) ,
intent(in) :: ub
3049 type(GK31_type) ,
intent(in) :: qrule
3050 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3056 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3061 procedure(
real(RKC)) :: getFunc
3062 type(ninf_type) ,
intent(in) :: lb
3063 real(RKC) ,
intent(in) :: ub
3064 type(GK31_type) ,
intent(in) :: qrule
3065 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3073 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3078 procedure(
real(RKC)) :: getFunc
3079 type(ninf_type) ,
intent(in) :: lb
3080 type(pinf_type) ,
intent(in) :: ub
3081 type(GK31_type) ,
intent(in) :: qrule
3082 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3088 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3093 procedure(
real(RKC)) :: getFunc
3094 type(ninf_type) ,
intent(in) :: lb
3095 type(pinf_type) ,
intent(in) :: ub
3096 type(GK31_type) ,
intent(in) :: qrule
3097 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3103 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3108 procedure(
real(RKC)) :: getFunc
3109 type(ninf_type) ,
intent(in) :: lb
3110 type(pinf_type) ,
intent(in) :: ub
3111 type(GK31_type) ,
intent(in) :: qrule
3112 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3118 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3123 procedure(
real(RKC)) :: getFunc
3124 type(ninf_type) ,
intent(in) :: lb
3125 type(pinf_type) ,
intent(in) :: ub
3126 type(GK31_type) ,
intent(in) :: qrule
3127 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3133 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3138 procedure(
real(RKC)) :: getFunc
3139 type(ninf_type) ,
intent(in) :: lb
3140 type(pinf_type) ,
intent(in) :: ub
3141 type(GK31_type) ,
intent(in) :: qrule
3142 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3158 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3163 procedure(
real(RKC)) :: getFunc
3164 real(RKC) ,
intent(in) :: lb
3165 real(RKC) ,
intent(in) :: ub
3166 type(GK41_type) ,
intent(in) :: qrule
3167 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3173 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3178 procedure(
real(RKC)) :: getFunc
3179 real(RKC) ,
intent(in) :: lb
3180 real(RKC) ,
intent(in) :: ub
3181 type(GK41_type) ,
intent(in) :: qrule
3182 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3188 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3193 procedure(
real(RKC)) :: getFunc
3194 real(RKC) ,
intent(in) :: lb
3195 real(RKC) ,
intent(in) :: ub
3196 type(GK41_type) ,
intent(in) :: qrule
3197 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3203 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3208 procedure(
real(RKC)) :: getFunc
3209 real(RKC) ,
intent(in) :: lb
3210 real(RKC) ,
intent(in) :: ub
3211 type(GK41_type) ,
intent(in) :: qrule
3212 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3218 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3223 procedure(
real(RKC)) :: getFunc
3224 real(RKC) ,
intent(in) :: lb
3225 real(RKC) ,
intent(in) :: ub
3226 type(GK41_type) ,
intent(in) :: qrule
3227 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3235 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3240 procedure(
real(RKC)) :: getFunc
3241 real(RKC) ,
intent(in) :: lb
3242 type(pinf_type) ,
intent(in) :: ub
3243 type(GK41_type) ,
intent(in) :: qrule
3244 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3250 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3255 procedure(
real(RKC)) :: getFunc
3256 real(RKC) ,
intent(in) :: lb
3257 type(pinf_type) ,
intent(in) :: ub
3258 type(GK41_type) ,
intent(in) :: qrule
3259 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3265 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3270 procedure(
real(RKC)) :: getFunc
3271 real(RKC) ,
intent(in) :: lb
3272 type(pinf_type) ,
intent(in) :: ub
3273 type(GK41_type) ,
intent(in) :: qrule
3274 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3280 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3285 procedure(
real(RKC)) :: getFunc
3286 real(RKC) ,
intent(in) :: lb
3287 type(pinf_type) ,
intent(in) :: ub
3288 type(GK41_type) ,
intent(in) :: qrule
3289 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3295 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3300 procedure(
real(RKC)) :: getFunc
3301 real(RKC) ,
intent(in) :: lb
3302 type(pinf_type) ,
intent(in) :: ub
3303 type(GK41_type) ,
intent(in) :: qrule
3304 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3312 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3317 procedure(
real(RKC)) :: getFunc
3318 type(ninf_type) ,
intent(in) :: lb
3319 real(RKC) ,
intent(in) :: ub
3320 type(GK41_type) ,
intent(in) :: qrule
3321 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3327 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3332 procedure(
real(RKC)) :: getFunc
3333 type(ninf_type) ,
intent(in) :: lb
3334 real(RKC) ,
intent(in) :: ub
3335 type(GK41_type) ,
intent(in) :: qrule
3336 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3342 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3347 procedure(
real(RKC)) :: getFunc
3348 type(ninf_type) ,
intent(in) :: lb
3349 real(RKC) ,
intent(in) :: ub
3350 type(GK41_type) ,
intent(in) :: qrule
3351 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3357 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3362 procedure(
real(RKC)) :: getFunc
3363 type(ninf_type) ,
intent(in) :: lb
3364 real(RKC) ,
intent(in) :: ub
3365 type(GK41_type) ,
intent(in) :: qrule
3366 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3372 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3377 procedure(
real(RKC)) :: getFunc
3378 type(ninf_type) ,
intent(in) :: lb
3379 real(RKC) ,
intent(in) :: ub
3380 type(GK41_type) ,
intent(in) :: qrule
3381 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3389 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3391 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3394 procedure(
real(RKC)) :: getFunc
3395 type(ninf_type) ,
intent(in) :: lb
3396 type(pinf_type) ,
intent(in) :: ub
3397 type(GK41_type) ,
intent(in) :: qrule
3398 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3404 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3409 procedure(
real(RKC)) :: getFunc
3410 type(ninf_type) ,
intent(in) :: lb
3411 type(pinf_type) ,
intent(in) :: ub
3412 type(GK41_type) ,
intent(in) :: qrule
3413 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3419 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3424 procedure(
real(RKC)) :: getFunc
3425 type(ninf_type) ,
intent(in) :: lb
3426 type(pinf_type) ,
intent(in) :: ub
3427 type(GK41_type) ,
intent(in) :: qrule
3428 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3434 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3439 procedure(
real(RKC)) :: getFunc
3440 type(ninf_type) ,
intent(in) :: lb
3441 type(pinf_type) ,
intent(in) :: ub
3442 type(GK41_type) ,
intent(in) :: qrule
3443 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3449 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3454 procedure(
real(RKC)) :: getFunc
3455 type(ninf_type) ,
intent(in) :: lb
3456 type(pinf_type) ,
intent(in) :: ub
3457 type(GK41_type) ,
intent(in) :: qrule
3458 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3474 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3476 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3479 procedure(
real(RKC)) :: getFunc
3480 real(RKC) ,
intent(in) :: lb
3481 real(RKC) ,
intent(in) :: ub
3482 type(GK51_type) ,
intent(in) :: qrule
3483 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3489 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3491 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3494 procedure(
real(RKC)) :: getFunc
3495 real(RKC) ,
intent(in) :: lb
3496 real(RKC) ,
intent(in) :: ub
3497 type(GK51_type) ,
intent(in) :: qrule
3498 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3504 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3506 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3509 procedure(
real(RKC)) :: getFunc
3510 real(RKC) ,
intent(in) :: lb
3511 real(RKC) ,
intent(in) :: ub
3512 type(GK51_type) ,
intent(in) :: qrule
3513 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3519 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3521 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3524 procedure(
real(RKC)) :: getFunc
3525 real(RKC) ,
intent(in) :: lb
3526 real(RKC) ,
intent(in) :: ub
3527 type(GK51_type) ,
intent(in) :: qrule
3528 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3534 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3536 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3539 procedure(
real(RKC)) :: getFunc
3540 real(RKC) ,
intent(in) :: lb
3541 real(RKC) ,
intent(in) :: ub
3542 type(GK51_type) ,
intent(in) :: qrule
3543 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3551 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3553 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3556 procedure(
real(RKC)) :: getFunc
3557 real(RKC) ,
intent(in) :: lb
3558 type(pinf_type) ,
intent(in) :: ub
3559 type(GK51_type) ,
intent(in) :: qrule
3560 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3566 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3568 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3571 procedure(
real(RKC)) :: getFunc
3572 real(RKC) ,
intent(in) :: lb
3573 type(pinf_type) ,
intent(in) :: ub
3574 type(GK51_type) ,
intent(in) :: qrule
3575 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3581 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3583 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3586 procedure(
real(RKC)) :: getFunc
3587 real(RKC) ,
intent(in) :: lb
3588 type(pinf_type) ,
intent(in) :: ub
3589 type(GK51_type) ,
intent(in) :: qrule
3590 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3596 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3598 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3601 procedure(
real(RKC)) :: getFunc
3602 real(RKC) ,
intent(in) :: lb
3603 type(pinf_type) ,
intent(in) :: ub
3604 type(GK51_type) ,
intent(in) :: qrule
3605 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3611 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3616 procedure(
real(RKC)) :: getFunc
3617 real(RKC) ,
intent(in) :: lb
3618 type(pinf_type) ,
intent(in) :: ub
3619 type(GK51_type) ,
intent(in) :: qrule
3620 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3628 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3633 procedure(
real(RKC)) :: getFunc
3634 type(ninf_type) ,
intent(in) :: lb
3635 real(RKC) ,
intent(in) :: ub
3636 type(GK51_type) ,
intent(in) :: qrule
3637 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3643 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3648 procedure(
real(RKC)) :: getFunc
3649 type(ninf_type) ,
intent(in) :: lb
3650 real(RKC) ,
intent(in) :: ub
3651 type(GK51_type) ,
intent(in) :: qrule
3652 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3658 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3660 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3663 procedure(
real(RKC)) :: getFunc
3664 type(ninf_type) ,
intent(in) :: lb
3665 real(RKC) ,
intent(in) :: ub
3666 type(GK51_type) ,
intent(in) :: qrule
3667 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3673 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3675 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3678 procedure(
real(RKC)) :: getFunc
3679 type(ninf_type) ,
intent(in) :: lb
3680 real(RKC) ,
intent(in) :: ub
3681 type(GK51_type) ,
intent(in) :: qrule
3682 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3688 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3690 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3693 procedure(
real(RKC)) :: getFunc
3694 type(ninf_type) ,
intent(in) :: lb
3695 real(RKC) ,
intent(in) :: ub
3696 type(GK51_type) ,
intent(in) :: qrule
3697 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3705 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3707 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3710 procedure(
real(RKC)) :: getFunc
3711 type(ninf_type) ,
intent(in) :: lb
3712 type(pinf_type) ,
intent(in) :: ub
3713 type(GK51_type) ,
intent(in) :: qrule
3714 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3720 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3722 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3725 procedure(
real(RKC)) :: getFunc
3726 type(ninf_type) ,
intent(in) :: lb
3727 type(pinf_type) ,
intent(in) :: ub
3728 type(GK51_type) ,
intent(in) :: qrule
3729 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3735 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3740 procedure(
real(RKC)) :: getFunc
3741 type(ninf_type) ,
intent(in) :: lb
3742 type(pinf_type) ,
intent(in) :: ub
3743 type(GK51_type) ,
intent(in) :: qrule
3744 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3750 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3755 procedure(
real(RKC)) :: getFunc
3756 type(ninf_type) ,
intent(in) :: lb
3757 type(pinf_type) ,
intent(in) :: ub
3758 type(GK51_type) ,
intent(in) :: qrule
3759 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3765 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3767 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3770 procedure(
real(RKC)) :: getFunc
3771 type(ninf_type) ,
intent(in) :: lb
3772 type(pinf_type) ,
intent(in) :: ub
3773 type(GK51_type) ,
intent(in) :: qrule
3774 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3790 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3795 procedure(
real(RKC)) :: getFunc
3796 real(RKC) ,
intent(in) :: lb
3797 real(RKC) ,
intent(in) :: ub
3798 type(GK61_type) ,
intent(in) :: qrule
3799 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3805 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3810 procedure(
real(RKC)) :: getFunc
3811 real(RKC) ,
intent(in) :: lb
3812 real(RKC) ,
intent(in) :: ub
3813 type(GK61_type) ,
intent(in) :: qrule
3814 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3820 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3825 procedure(
real(RKC)) :: getFunc
3826 real(RKC) ,
intent(in) :: lb
3827 real(RKC) ,
intent(in) :: ub
3828 type(GK61_type) ,
intent(in) :: qrule
3829 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3835 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3840 procedure(
real(RKC)) :: getFunc
3841 real(RKC) ,
intent(in) :: lb
3842 real(RKC) ,
intent(in) :: ub
3843 type(GK61_type) ,
intent(in) :: qrule
3844 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3850 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3855 procedure(
real(RKC)) :: getFunc
3856 real(RKC) ,
intent(in) :: lb
3857 real(RKC) ,
intent(in) :: ub
3858 type(GK61_type) ,
intent(in) :: qrule
3859 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3867 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3869 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3872 procedure(
real(RKC)) :: getFunc
3873 real(RKC) ,
intent(in) :: lb
3874 type(pinf_type) ,
intent(in) :: ub
3875 type(GK61_type) ,
intent(in) :: qrule
3876 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3882 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3887 procedure(
real(RKC)) :: getFunc
3888 real(RKC) ,
intent(in) :: lb
3889 type(pinf_type) ,
intent(in) :: ub
3890 type(GK61_type) ,
intent(in) :: qrule
3891 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3897 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3899 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3902 procedure(
real(RKC)) :: getFunc
3903 real(RKC) ,
intent(in) :: lb
3904 type(pinf_type) ,
intent(in) :: ub
3905 type(GK61_type) ,
intent(in) :: qrule
3906 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3912 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3917 procedure(
real(RKC)) :: getFunc
3918 real(RKC) ,
intent(in) :: lb
3919 type(pinf_type) ,
intent(in) :: ub
3920 type(GK61_type) ,
intent(in) :: qrule
3921 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3927 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3932 procedure(
real(RKC)) :: getFunc
3933 real(RKC) ,
intent(in) :: lb
3934 type(pinf_type) ,
intent(in) :: ub
3935 type(GK61_type) ,
intent(in) :: qrule
3936 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3944 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
3949 procedure(
real(RKC)) :: getFunc
3950 type(ninf_type) ,
intent(in) :: lb
3951 real(RKC) ,
intent(in) :: ub
3952 type(GK61_type) ,
intent(in) :: qrule
3953 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3959 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
3964 procedure(
real(RKC)) :: getFunc
3965 type(ninf_type) ,
intent(in) :: lb
3966 real(RKC) ,
intent(in) :: ub
3967 type(GK61_type) ,
intent(in) :: qrule
3968 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3974 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3976 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
3979 procedure(
real(RKC)) :: getFunc
3980 type(ninf_type) ,
intent(in) :: lb
3981 real(RKC) ,
intent(in) :: ub
3982 type(GK61_type) ,
intent(in) :: qrule
3983 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
3989 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
3990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3991 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
3994 procedure(
real(RKC)) :: getFunc
3995 type(ninf_type) ,
intent(in) :: lb
3996 real(RKC) ,
intent(in) :: ub
3997 type(GK61_type) ,
intent(in) :: qrule
3998 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4004 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4009 procedure(
real(RKC)) :: getFunc
4010 type(ninf_type) ,
intent(in) :: lb
4011 real(RKC) ,
intent(in) :: ub
4012 type(GK61_type) ,
intent(in) :: qrule
4013 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4021 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4026 procedure(
real(RKC)) :: getFunc
4027 type(ninf_type) ,
intent(in) :: lb
4028 type(pinf_type) ,
intent(in) :: ub
4029 type(GK61_type) ,
intent(in) :: qrule
4030 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4036 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4038 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4041 procedure(
real(RKC)) :: getFunc
4042 type(ninf_type) ,
intent(in) :: lb
4043 type(pinf_type) ,
intent(in) :: ub
4044 type(GK61_type) ,
intent(in) :: qrule
4045 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4051 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4053 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4056 procedure(
real(RKC)) :: getFunc
4057 type(ninf_type) ,
intent(in) :: lb
4058 type(pinf_type) ,
intent(in) :: ub
4059 type(GK61_type) ,
intent(in) :: qrule
4060 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4066 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4068 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4071 procedure(
real(RKC)) :: getFunc
4072 type(ninf_type) ,
intent(in) :: lb
4073 type(pinf_type) ,
intent(in) :: ub
4074 type(GK61_type) ,
intent(in) :: qrule
4075 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4081 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness)
result(quadGK)
4082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4083 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4086 procedure(
real(RKC)) :: getFunc
4087 type(ninf_type) ,
intent(in) :: lb
4088 type(pinf_type) ,
intent(in) :: ub
4089 type(GK61_type) ,
intent(in) :: qrule
4090 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4106 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4108 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4111 procedure(
real(RKC)) :: getFunc
4112 real(RKC) ,
intent(in) :: lb
4113 real(RKC) ,
intent(in) :: ub
4114 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4115 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4121 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4123 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4126 procedure(
real(RKC)) :: getFunc
4127 real(RKC) ,
intent(in) :: lb
4128 real(RKC) ,
intent(in) :: ub
4129 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4130 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4136 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4138 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4141 procedure(
real(RKC)) :: getFunc
4142 real(RKC) ,
intent(in) :: lb
4143 real(RKC) ,
intent(in) :: ub
4144 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4145 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4151 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4153 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4156 procedure(
real(RKC)) :: getFunc
4157 real(RKC) ,
intent(in) :: lb
4158 real(RKC) ,
intent(in) :: ub
4159 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4160 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4166 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4168 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4171 procedure(
real(RKC)) :: getFunc
4172 real(RKC) ,
intent(in) :: lb
4173 real(RKC) ,
intent(in) :: ub
4174 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4175 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4183 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4188 procedure(
real(RKC)) :: getFunc
4189 real(RKC) ,
intent(in) :: lb
4190 type(pinf_type) ,
intent(in) :: ub
4191 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4192 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4198 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4203 procedure(
real(RKC)) :: getFunc
4204 real(RKC) ,
intent(in) :: lb
4205 type(pinf_type) ,
intent(in) :: ub
4206 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4207 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4213 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4215 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4218 procedure(
real(RKC)) :: getFunc
4219 real(RKC) ,
intent(in) :: lb
4220 type(pinf_type) ,
intent(in) :: ub
4221 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4222 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4228 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4233 procedure(
real(RKC)) :: getFunc
4234 real(RKC) ,
intent(in) :: lb
4235 type(pinf_type) ,
intent(in) :: ub
4236 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4237 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4243 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4245 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4248 procedure(
real(RKC)) :: getFunc
4249 real(RKC) ,
intent(in) :: lb
4250 type(pinf_type) ,
intent(in) :: ub
4251 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4252 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4260 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4262 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4265 procedure(
real(RKC)) :: getFunc
4266 type(ninf_type) ,
intent(in) :: lb
4267 real(RKC) ,
intent(in) :: ub
4268 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4269 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4275 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4280 procedure(
real(RKC)) :: getFunc
4281 type(ninf_type) ,
intent(in) :: lb
4282 real(RKC) ,
intent(in) :: ub
4283 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4284 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4290 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4295 procedure(
real(RKC)) :: getFunc
4296 type(ninf_type) ,
intent(in) :: lb
4297 real(RKC) ,
intent(in) :: ub
4298 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4299 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4305 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4310 procedure(
real(RKC)) :: getFunc
4311 type(ninf_type) ,
intent(in) :: lb
4312 real(RKC) ,
intent(in) :: ub
4313 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4314 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4320 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4322 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4325 procedure(
real(RKC)) :: getFunc
4326 type(ninf_type) ,
intent(in) :: lb
4327 real(RKC) ,
intent(in) :: ub
4328 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4329 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4337 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4342 procedure(
real(RKC)) :: getFunc
4343 type(ninf_type) ,
intent(in) :: lb
4344 type(pinf_type) ,
intent(in) :: ub
4345 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4346 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4352 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4354 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4357 procedure(
real(RKC)) :: getFunc
4358 type(ninf_type) ,
intent(in) :: lb
4359 type(pinf_type) ,
intent(in) :: ub
4360 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4361 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4367 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4372 procedure(
real(RKC)) :: getFunc
4373 type(ninf_type) ,
intent(in) :: lb
4374 type(pinf_type) ,
intent(in) :: ub
4375 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4376 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4382 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4384 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4387 procedure(
real(RKC)) :: getFunc
4388 type(ninf_type) ,
intent(in) :: lb
4389 type(pinf_type) ,
intent(in) :: ub
4390 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4391 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4397 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness)
result(quadGK)
4398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4399 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4402 procedure(
real(RKC)) :: getFunc
4403 type(ninf_type) ,
intent(in) :: lb
4404 type(pinf_type) ,
intent(in) :: ub
4405 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
4406 real(RKC) ,
intent(out) :: abserr, intAbsFunc, smoothness
4534 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4536 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4539 integer(IK) ,
intent(inout) :: inew, ical
4540 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4541 real(RKC) ,
intent(out) :: seqlim, abserr
4546 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4548 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4551 integer(IK) ,
intent(inout) :: inew, ical
4552 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4553 real(RKC) ,
intent(out) :: seqlim, abserr
4558 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4560 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4563 integer(IK) ,
intent(inout) :: inew, ical
4564 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4565 real(RKC) ,
intent(out) :: seqlim, abserr
4570 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4572 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4575 integer(IK) ,
intent(inout) :: inew, ical
4576 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4577 real(RKC) ,
intent(out) :: seqlim, abserr
4582 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4584 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4587 integer(IK) ,
intent(inout) :: inew, ical
4588 real(RKC) ,
intent(inout) :: EpsTable(MAXLEN_EPSTAB
+ 2), SeqLims(
3)
4589 real(RKC) ,
intent(out) :: seqlim, abserr
4647 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4649 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4652 integer(IK) ,
intent(in) :: nintmax
4653 real(RKC) ,
intent(in) :: sinfoErr(:)
4654 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4655 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4656 real(RKC) ,
intent(out) :: maxErrVal
4661 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4663 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4666 integer(IK) ,
intent(in) :: nintmax
4667 real(RKC) ,
intent(in) :: sinfoErr(:)
4668 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4669 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4670 real(RKC) ,
intent(out) :: maxErrVal
4675 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4677 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4680 integer(IK) ,
intent(in) :: nintmax
4681 real(RKC) ,
intent(in) :: sinfoErr(:)
4682 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4683 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4684 real(RKC) ,
intent(out) :: maxErrVal
4689 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4691 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4694 integer(IK) ,
intent(in) :: nintmax
4695 real(RKC) ,
intent(in) :: sinfoErr(:)
4696 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4697 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4698 real(RKC) ,
intent(out) :: maxErrVal
4703 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4705 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4708 integer(IK) ,
intent(in) :: nintmax
4709 real(RKC) ,
intent(in) :: sinfoErr(:)
4710 integer(IK) ,
intent(inout) ,
contiguous :: sindex(:)
4711 integer(IK) ,
intent(inout) :: nrmax, maxErrLoc
4712 real(RKC) ,
intent(out) :: maxErrVal
4773 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4775 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4778 real(RKC) ,
intent(inout) :: func(
25)
4779 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4784 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4786 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4789 real(RKC) ,
intent(inout) :: func(
25)
4790 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4795 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4797 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4800 real(RKC) ,
intent(inout) :: func(
25)
4801 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4806 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4808 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4811 real(RKC) ,
intent(inout) :: func(
25)
4812 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4817 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4819 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4822 real(RKC) ,
intent(inout) :: func(
25)
4823 real(RKC) ,
intent(out) :: cheb12(
13), cheb24(
25)
4924 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4926 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4929 procedure(
real(RKC)) :: getFunc
4930 real(RKC) ,
intent(in) :: lb, ub
4931 real(RKC) ,
intent(out) :: integral
4932 real(RKC) ,
intent(out) ,
optional :: abserr
4933 real(RKC) ,
intent(in) ,
optional :: abstol
4934 real(RKC) ,
intent(in) ,
optional :: reltol
4935 integer(IK) ,
intent(out) ,
optional :: neval
4936 integer(IK) ,
intent(out) ,
optional :: nint
4937 character(
*, SK) ,
intent(out) ,
optional :: msg
4938 logical(LK) :: failed
4943 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4944#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4945 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
4948 procedure(
real(RKC)) :: getFunc
4949 real(RKC) ,
intent(in) :: lb, ub
4950 real(RKC) ,
intent(out) :: integral
4951 real(RKC) ,
intent(out) ,
optional :: abserr
4952 real(RKC) ,
intent(in) ,
optional :: abstol
4953 real(RKC) ,
intent(in) ,
optional :: reltol
4954 integer(IK) ,
intent(out) ,
optional :: neval
4955 integer(IK) ,
intent(out) ,
optional :: nint
4956 character(
*, SK) ,
intent(out) ,
optional :: msg
4957 logical(LK) :: failed
4962 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4964 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
4967 procedure(
real(RKC)) :: getFunc
4968 real(RKC) ,
intent(in) :: lb, ub
4969 real(RKC) ,
intent(out) :: integral
4970 real(RKC) ,
intent(out) ,
optional :: abserr
4971 real(RKC) ,
intent(in) ,
optional :: abstol
4972 real(RKC) ,
intent(in) ,
optional :: reltol
4973 integer(IK) ,
intent(out) ,
optional :: neval
4974 integer(IK) ,
intent(out) ,
optional :: nint
4975 character(
*, SK) ,
intent(out) ,
optional :: msg
4976 logical(LK) :: failed
4981 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
4982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4983 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
4986 procedure(
real(RKC)) :: getFunc
4987 real(RKC) ,
intent(in) :: lb, ub
4988 real(RKC) ,
intent(out) :: integral
4989 real(RKC) ,
intent(out) ,
optional :: abserr
4990 real(RKC) ,
intent(in) ,
optional :: abstol
4991 real(RKC) ,
intent(in) ,
optional :: reltol
4992 integer(IK) ,
intent(out) ,
optional :: neval
4993 integer(IK) ,
intent(out) ,
optional :: nint
4994 character(
*, SK) ,
intent(out) ,
optional :: msg
4995 logical(LK) :: failed
5000 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5002 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5005 procedure(
real(RKC)) :: getFunc
5006 real(RKC) ,
intent(in) :: lb, ub
5007 real(RKC) ,
intent(out) :: integral
5008 real(RKC) ,
intent(out) ,
optional :: abserr
5009 real(RKC) ,
intent(in) ,
optional :: abstol
5010 real(RKC) ,
intent(in) ,
optional :: reltol
5011 integer(IK) ,
intent(out) ,
optional :: neval
5012 integer(IK) ,
intent(out) ,
optional :: nint
5013 character(
*, SK) ,
intent(out) ,
optional :: msg
5014 logical(LK) :: failed
5021 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5023 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5026 procedure(
real(RKC)) :: getFunc
5027 real(RKC) ,
intent(in) :: lb, ub
5028 real(RKC) ,
intent(out) :: integral
5029 type(weps_type) ,
intent(in) :: help
5030 real(RKC) ,
intent(out) ,
optional :: abserr
5031 real(RKC) ,
intent(in) ,
optional :: abstol
5032 real(RKC) ,
intent(in) ,
optional :: reltol
5033 integer(IK) ,
intent(out) ,
optional :: neval
5034 integer(IK) ,
intent(out) ,
optional :: nint
5035 character(
*, SK) ,
intent(out) ,
optional :: msg
5036 logical(LK) :: failed
5041 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5043 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5046 procedure(
real(RKC)) :: getFunc
5047 real(RKC) ,
intent(in) :: lb, ub
5048 real(RKC) ,
intent(out) :: integral
5049 type(weps_type) ,
intent(in) :: help
5050 real(RKC) ,
intent(out) ,
optional :: abserr
5051 real(RKC) ,
intent(in) ,
optional :: abstol
5052 real(RKC) ,
intent(in) ,
optional :: reltol
5053 integer(IK) ,
intent(out) ,
optional :: neval
5054 integer(IK) ,
intent(out) ,
optional :: nint
5055 character(
*, SK) ,
intent(out) ,
optional :: msg
5056 logical(LK) :: failed
5061 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5063 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5066 procedure(
real(RKC)) :: getFunc
5067 real(RKC) ,
intent(in) :: lb, ub
5068 real(RKC) ,
intent(out) :: integral
5069 type(weps_type) ,
intent(in) :: help
5070 real(RKC) ,
intent(out) ,
optional :: abserr
5071 real(RKC) ,
intent(in) ,
optional :: abstol
5072 real(RKC) ,
intent(in) ,
optional :: reltol
5073 integer(IK) ,
intent(out) ,
optional :: neval
5074 integer(IK) ,
intent(out) ,
optional :: nint
5075 character(
*, SK) ,
intent(out) ,
optional :: msg
5076 logical(LK) :: failed
5081 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5083 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5086 procedure(
real(RKC)) :: getFunc
5087 real(RKC) ,
intent(in) :: lb, ub
5088 real(RKC) ,
intent(out) :: integral
5089 type(weps_type) ,
intent(in) :: help
5090 real(RKC) ,
intent(out) ,
optional :: abserr
5091 real(RKC) ,
intent(in) ,
optional :: abstol
5092 real(RKC) ,
intent(in) ,
optional :: reltol
5093 integer(IK) ,
intent(out) ,
optional :: neval
5094 integer(IK) ,
intent(out) ,
optional :: nint
5095 character(
*, SK) ,
intent(out) ,
optional :: msg
5096 logical(LK) :: failed
5101 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5102#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5103 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5106 procedure(
real(RKC)) :: getFunc
5107 real(RKC) ,
intent(in) :: lb, ub
5108 real(RKC) ,
intent(out) :: integral
5109 type(weps_type) ,
intent(in) :: help
5110 real(RKC) ,
intent(out) ,
optional :: abserr
5111 real(RKC) ,
intent(in) ,
optional :: abstol
5112 real(RKC) ,
intent(in) ,
optional :: reltol
5113 integer(IK) ,
intent(out) ,
optional :: neval
5114 integer(IK) ,
intent(out) ,
optional :: nint
5115 character(
*, SK) ,
intent(out) ,
optional :: msg
5116 logical(LK) :: failed
5123 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5125 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5128 procedure(
real(RKC)) :: getFunc
5129 real(RKC) ,
intent(in) :: lb, ub
5130 real(RKC) ,
intent(out) :: integral
5131 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5132 real(RKC) ,
intent(out) ,
optional :: abserr
5133 real(RKC) ,
intent(in) ,
optional :: abstol
5134 real(RKC) ,
intent(in) ,
optional :: reltol
5135 integer(IK) ,
intent(out) ,
optional :: neval
5136 integer(IK) ,
intent(out) ,
optional :: nint
5137 character(
*, SK) ,
intent(out) ,
optional :: msg
5138 logical(LK) :: failed
5143 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5144#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5145 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5148 procedure(
real(RKC)) :: getFunc
5149 real(RKC) ,
intent(in) :: lb, ub
5150 real(RKC) ,
intent(out) :: integral
5151 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5152 real(RKC) ,
intent(out) ,
optional :: abserr
5153 real(RKC) ,
intent(in) ,
optional :: abstol
5154 real(RKC) ,
intent(in) ,
optional :: reltol
5155 integer(IK) ,
intent(out) ,
optional :: neval
5156 integer(IK) ,
intent(out) ,
optional :: nint
5157 character(
*, SK) ,
intent(out) ,
optional :: msg
5158 logical(LK) :: failed
5163 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5165 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5168 procedure(
real(RKC)) :: getFunc
5169 real(RKC) ,
intent(in) :: lb, ub
5170 real(RKC) ,
intent(out) :: integral
5171 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5172 real(RKC) ,
intent(out) ,
optional :: abserr
5173 real(RKC) ,
intent(in) ,
optional :: abstol
5174 real(RKC) ,
intent(in) ,
optional :: reltol
5175 integer(IK) ,
intent(out) ,
optional :: neval
5176 integer(IK) ,
intent(out) ,
optional :: nint
5177 character(
*, SK) ,
intent(out) ,
optional :: msg
5178 logical(LK) :: failed
5183 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5185 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5188 procedure(
real(RKC)) :: getFunc
5189 real(RKC) ,
intent(in) :: lb, ub
5190 real(RKC) ,
intent(out) :: integral
5191 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5192 real(RKC) ,
intent(out) ,
optional :: abserr
5193 real(RKC) ,
intent(in) ,
optional :: abstol
5194 real(RKC) ,
intent(in) ,
optional :: reltol
5195 integer(IK) ,
intent(out) ,
optional :: neval
5196 integer(IK) ,
intent(out) ,
optional :: nint
5197 character(
*, SK) ,
intent(out) ,
optional :: msg
5198 logical(LK) :: failed
5203 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5205 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5208 procedure(
real(RKC)) :: getFunc
5209 real(RKC) ,
intent(in) :: lb, ub
5210 real(RKC) ,
intent(out) :: integral
5211 real(RKC) ,
intent(in) ,
contiguous :: help(:)
5212 real(RKC) ,
intent(out) ,
optional :: abserr
5213 real(RKC) ,
intent(in) ,
optional :: abstol
5214 real(RKC) ,
intent(in) ,
optional :: reltol
5215 integer(IK) ,
intent(out) ,
optional :: neval
5216 integer(IK) ,
intent(out) ,
optional :: nint
5217 character(
*, SK) ,
intent(out) ,
optional :: msg
5218 logical(LK) :: failed
5225 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5227 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5230 procedure(
real(RKC)) :: getFunc
5231 real(RKC) ,
intent(in) :: lb, ub
5232 real(RKC) ,
intent(out) :: integral
5233 type(wcauchy_type) ,
intent(in) :: help
5234 real(RKC) ,
intent(out) ,
optional :: abserr
5235 real(RKC) ,
intent(in) ,
optional :: abstol
5236 real(RKC) ,
intent(in) ,
optional :: reltol
5237 integer(IK) ,
intent(out) ,
optional :: neval
5238 integer(IK) ,
intent(out) ,
optional :: nint
5239 character(
*, SK) ,
intent(out) ,
optional :: msg
5240 logical(LK) :: failed
5245 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5247 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5250 procedure(
real(RKC)) :: getFunc
5251 real(RKC) ,
intent(in) :: lb, ub
5252 real(RKC) ,
intent(out) :: integral
5253 type(wcauchy_type) ,
intent(in) :: help
5254 real(RKC) ,
intent(out) ,
optional :: abserr
5255 real(RKC) ,
intent(in) ,
optional :: abstol
5256 real(RKC) ,
intent(in) ,
optional :: reltol
5257 integer(IK) ,
intent(out) ,
optional :: neval
5258 integer(IK) ,
intent(out) ,
optional :: nint
5259 character(
*, SK) ,
intent(out) ,
optional :: msg
5260 logical(LK) :: failed
5265 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5267 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5270 procedure(
real(RKC)) :: getFunc
5271 real(RKC) ,
intent(in) :: lb, ub
5272 real(RKC) ,
intent(out) :: integral
5273 type(wcauchy_type) ,
intent(in) :: help
5274 real(RKC) ,
intent(out) ,
optional :: abserr
5275 real(RKC) ,
intent(in) ,
optional :: abstol
5276 real(RKC) ,
intent(in) ,
optional :: reltol
5277 integer(IK) ,
intent(out) ,
optional :: neval
5278 integer(IK) ,
intent(out) ,
optional :: nint
5279 character(
*, SK) ,
intent(out) ,
optional :: msg
5280 logical(LK) :: failed
5285 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5287 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5290 procedure(
real(RKC)) :: getFunc
5291 real(RKC) ,
intent(in) :: lb, ub
5292 real(RKC) ,
intent(out) :: integral
5293 type(wcauchy_type) ,
intent(in) :: help
5294 real(RKC) ,
intent(out) ,
optional :: abserr
5295 real(RKC) ,
intent(in) ,
optional :: abstol
5296 real(RKC) ,
intent(in) ,
optional :: reltol
5297 integer(IK) ,
intent(out) ,
optional :: neval
5298 integer(IK) ,
intent(out) ,
optional :: nint
5299 character(
*, SK) ,
intent(out) ,
optional :: msg
5300 logical(LK) :: failed
5305 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg)
result(failed)
5306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5307 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5310 procedure(
real(RKC)) :: getFunc
5311 real(RKC) ,
intent(in) :: lb, ub
5312 real(RKC) ,
intent(out) :: integral
5313 type(wcauchy_type) ,
intent(in) :: help
5314 real(RKC) ,
intent(out) ,
optional :: abserr
5315 real(RKC) ,
intent(in) ,
optional :: abstol
5316 real(RKC) ,
intent(in) ,
optional :: reltol
5317 integer(IK) ,
intent(out) ,
optional :: neval
5318 integer(IK) ,
intent(out) ,
optional :: nint
5319 character(
*, SK) ,
intent(out) ,
optional :: msg
5320 logical(LK) :: failed
5576 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5581 procedure(
real(RKC)) :: getFunc
5582 real(RKC) ,
intent(in) :: lb
5583 real(RKC) ,
intent(in) :: ub
5584 real(RKC) ,
intent(in) :: abstol
5585 real(RKC) ,
intent(in) :: reltol
5586 type(GK15_type) ,
intent(in) :: qrule
5587 real(RKC) ,
intent(out) :: integral, abserr
5588 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5589 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5590 integer(IK) ,
intent(out) :: neval
5591 integer(IK) ,
intent(out) :: nint
5597 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5602 procedure(
real(RKC)) :: getFunc
5603 real(RKC) ,
intent(in) :: lb
5604 real(RKC) ,
intent(in) :: ub
5605 real(RKC) ,
intent(in) :: abstol
5606 real(RKC) ,
intent(in) :: reltol
5607 type(GK15_type) ,
intent(in) :: qrule
5608 real(RKC) ,
intent(out) :: integral, abserr
5609 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5610 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5611 integer(IK) ,
intent(out) :: neval
5612 integer(IK) ,
intent(out) :: nint
5618 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5623 procedure(
real(RKC)) :: getFunc
5624 real(RKC) ,
intent(in) :: lb
5625 real(RKC) ,
intent(in) :: ub
5626 real(RKC) ,
intent(in) :: abstol
5627 real(RKC) ,
intent(in) :: reltol
5628 type(GK15_type) ,
intent(in) :: qrule
5629 real(RKC) ,
intent(out) :: integral, abserr
5630 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5631 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5632 integer(IK) ,
intent(out) :: neval
5633 integer(IK) ,
intent(out) :: nint
5639 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5641 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5644 procedure(
real(RKC)) :: getFunc
5645 real(RKC) ,
intent(in) :: lb
5646 real(RKC) ,
intent(in) :: ub
5647 real(RKC) ,
intent(in) :: abstol
5648 real(RKC) ,
intent(in) :: reltol
5649 type(GK15_type) ,
intent(in) :: qrule
5650 real(RKC) ,
intent(out) :: integral, abserr
5651 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5652 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5653 integer(IK) ,
intent(out) :: neval
5654 integer(IK) ,
intent(out) :: nint
5660 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5665 procedure(
real(RKC)) :: getFunc
5666 real(RKC) ,
intent(in) :: lb
5667 real(RKC) ,
intent(in) :: ub
5668 real(RKC) ,
intent(in) :: abstol
5669 real(RKC) ,
intent(in) :: reltol
5670 type(GK15_type) ,
intent(in) :: qrule
5671 real(RKC) ,
intent(out) :: integral, abserr
5672 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5673 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5674 integer(IK) ,
intent(out) :: neval
5675 integer(IK) ,
intent(out) :: nint
5683 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5688 procedure(
real(RKC)) :: getFunc
5689 real(RKC) ,
intent(in) :: lb
5690 type(pinf_type) ,
intent(in) :: ub
5691 real(RKC) ,
intent(in) :: abstol
5692 real(RKC) ,
intent(in) :: reltol
5693 type(GK15_type) ,
intent(in) :: qrule
5694 real(RKC) ,
intent(out) :: integral, abserr
5695 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5696 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5697 integer(IK) ,
intent(out) :: neval
5698 integer(IK) ,
intent(out) :: nint
5704 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5709 procedure(
real(RKC)) :: getFunc
5710 real(RKC) ,
intent(in) :: lb
5711 type(pinf_type) ,
intent(in) :: ub
5712 real(RKC) ,
intent(in) :: abstol
5713 real(RKC) ,
intent(in) :: reltol
5714 type(GK15_type) ,
intent(in) :: qrule
5715 real(RKC) ,
intent(out) :: integral, abserr
5716 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5717 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5718 integer(IK) ,
intent(out) :: neval
5719 integer(IK) ,
intent(out) :: nint
5725 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5730 procedure(
real(RKC)) :: getFunc
5731 real(RKC) ,
intent(in) :: lb
5732 type(pinf_type) ,
intent(in) :: ub
5733 real(RKC) ,
intent(in) :: abstol
5734 real(RKC) ,
intent(in) :: reltol
5735 type(GK15_type) ,
intent(in) :: qrule
5736 real(RKC) ,
intent(out) :: integral, abserr
5737 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5738 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5739 integer(IK) ,
intent(out) :: neval
5740 integer(IK) ,
intent(out) :: nint
5746 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5751 procedure(
real(RKC)) :: getFunc
5752 real(RKC) ,
intent(in) :: lb
5753 type(pinf_type) ,
intent(in) :: ub
5754 real(RKC) ,
intent(in) :: abstol
5755 real(RKC) ,
intent(in) :: reltol
5756 type(GK15_type) ,
intent(in) :: qrule
5757 real(RKC) ,
intent(out) :: integral, abserr
5758 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5759 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5760 integer(IK) ,
intent(out) :: neval
5761 integer(IK) ,
intent(out) :: nint
5767 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5769 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5772 procedure(
real(RKC)) :: getFunc
5773 real(RKC) ,
intent(in) :: lb
5774 type(pinf_type) ,
intent(in) :: ub
5775 real(RKC) ,
intent(in) :: abstol
5776 real(RKC) ,
intent(in) :: reltol
5777 type(GK15_type) ,
intent(in) :: qrule
5778 real(RKC) ,
intent(out) :: integral, abserr
5779 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5780 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5781 integer(IK) ,
intent(out) :: neval
5782 integer(IK) ,
intent(out) :: nint
5790 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5795 procedure(
real(RKC)) :: getFunc
5796 type(ninf_type) ,
intent(in) :: lb
5797 real(RKC) ,
intent(in) :: ub
5798 real(RKC) ,
intent(in) :: abstol
5799 real(RKC) ,
intent(in) :: reltol
5800 type(GK15_type) ,
intent(in) :: qrule
5801 real(RKC) ,
intent(out) :: integral, abserr
5802 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5803 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5804 integer(IK) ,
intent(out) :: neval
5805 integer(IK) ,
intent(out) :: nint
5811 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5813 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5816 procedure(
real(RKC)) :: getFunc
5817 type(ninf_type) ,
intent(in) :: lb
5818 real(RKC) ,
intent(in) :: ub
5819 real(RKC) ,
intent(in) :: abstol
5820 real(RKC) ,
intent(in) :: reltol
5821 type(GK15_type) ,
intent(in) :: qrule
5822 real(RKC) ,
intent(out) :: integral, abserr
5823 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5824 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5825 integer(IK) ,
intent(out) :: neval
5826 integer(IK) ,
intent(out) :: nint
5832 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5837 procedure(
real(RKC)) :: getFunc
5838 type(ninf_type) ,
intent(in) :: lb
5839 real(RKC) ,
intent(in) :: ub
5840 real(RKC) ,
intent(in) :: abstol
5841 real(RKC) ,
intent(in) :: reltol
5842 type(GK15_type) ,
intent(in) :: qrule
5843 real(RKC) ,
intent(out) :: integral, abserr
5844 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5845 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5846 integer(IK) ,
intent(out) :: neval
5847 integer(IK) ,
intent(out) :: nint
5853 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5855 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5858 procedure(
real(RKC)) :: getFunc
5859 type(ninf_type) ,
intent(in) :: lb
5860 real(RKC) ,
intent(in) :: ub
5861 real(RKC) ,
intent(in) :: abstol
5862 real(RKC) ,
intent(in) :: reltol
5863 type(GK15_type) ,
intent(in) :: qrule
5864 real(RKC) ,
intent(out) :: integral, abserr
5865 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5866 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5867 integer(IK) ,
intent(out) :: neval
5868 integer(IK) ,
intent(out) :: nint
5874 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5879 procedure(
real(RKC)) :: getFunc
5880 type(ninf_type) ,
intent(in) :: lb
5881 real(RKC) ,
intent(in) :: ub
5882 real(RKC) ,
intent(in) :: abstol
5883 real(RKC) ,
intent(in) :: reltol
5884 type(GK15_type) ,
intent(in) :: qrule
5885 real(RKC) ,
intent(out) :: integral, abserr
5886 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5887 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5888 integer(IK) ,
intent(out) :: neval
5889 integer(IK) ,
intent(out) :: nint
5897 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5899 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5902 procedure(
real(RKC)) :: getFunc
5903 type(ninf_type) ,
intent(in) :: lb
5904 type(pinf_type) ,
intent(in) :: ub
5905 real(RKC) ,
intent(in) :: abstol
5906 real(RKC) ,
intent(in) :: reltol
5907 type(GK15_type) ,
intent(in) :: qrule
5908 real(RKC) ,
intent(out) :: integral, abserr
5909 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5910 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5911 integer(IK) ,
intent(out) :: neval
5912 integer(IK) ,
intent(out) :: nint
5918 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5923 procedure(
real(RKC)) :: getFunc
5924 type(ninf_type) ,
intent(in) :: lb
5925 type(pinf_type) ,
intent(in) :: ub
5926 real(RKC) ,
intent(in) :: abstol
5927 real(RKC) ,
intent(in) :: reltol
5928 type(GK15_type) ,
intent(in) :: qrule
5929 real(RKC) ,
intent(out) :: integral, abserr
5930 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5931 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5932 integer(IK) ,
intent(out) :: neval
5933 integer(IK) ,
intent(out) :: nint
5939 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5941 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
5944 procedure(
real(RKC)) :: getFunc
5945 type(ninf_type) ,
intent(in) :: lb
5946 type(pinf_type) ,
intent(in) :: ub
5947 real(RKC) ,
intent(in) :: abstol
5948 real(RKC) ,
intent(in) :: reltol
5949 type(GK15_type) ,
intent(in) :: qrule
5950 real(RKC) ,
intent(out) :: integral, abserr
5951 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5952 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5953 integer(IK) ,
intent(out) :: neval
5954 integer(IK) ,
intent(out) :: nint
5960 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
5965 procedure(
real(RKC)) :: getFunc
5966 type(ninf_type) ,
intent(in) :: lb
5967 type(pinf_type) ,
intent(in) :: ub
5968 real(RKC) ,
intent(in) :: abstol
5969 real(RKC) ,
intent(in) :: reltol
5970 type(GK15_type) ,
intent(in) :: qrule
5971 real(RKC) ,
intent(out) :: integral, abserr
5972 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5973 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5974 integer(IK) ,
intent(out) :: neval
5975 integer(IK) ,
intent(out) :: nint
5981 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
5982#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5983 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
5986 procedure(
real(RKC)) :: getFunc
5987 type(ninf_type) ,
intent(in) :: lb
5988 type(pinf_type) ,
intent(in) :: ub
5989 real(RKC) ,
intent(in) :: abstol
5990 real(RKC) ,
intent(in) :: reltol
5991 type(GK15_type) ,
intent(in) :: qrule
5992 real(RKC) ,
intent(out) :: integral, abserr
5993 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
5994 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
5995 integer(IK) ,
intent(out) :: neval
5996 integer(IK) ,
intent(out) :: nint
6012 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6017 procedure(
real(RKC)) :: getFunc
6018 real(RKC) ,
intent(in) :: lb
6019 real(RKC) ,
intent(in) :: ub
6020 real(RKC) ,
intent(in) :: abstol
6021 real(RKC) ,
intent(in) :: reltol
6022 type(GK21_type) ,
intent(in) :: qrule
6023 real(RKC) ,
intent(out) :: integral, abserr
6024 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6025 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6026 integer(IK) ,
intent(out) :: neval
6027 integer(IK) ,
intent(out) :: nint
6033 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6038 procedure(
real(RKC)) :: getFunc
6039 real(RKC) ,
intent(in) :: lb
6040 real(RKC) ,
intent(in) :: ub
6041 real(RKC) ,
intent(in) :: abstol
6042 real(RKC) ,
intent(in) :: reltol
6043 type(GK21_type) ,
intent(in) :: qrule
6044 real(RKC) ,
intent(out) :: integral, abserr
6045 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6046 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6047 integer(IK) ,
intent(out) :: neval
6048 integer(IK) ,
intent(out) :: nint
6054 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6059 procedure(
real(RKC)) :: getFunc
6060 real(RKC) ,
intent(in) :: lb
6061 real(RKC) ,
intent(in) :: ub
6062 real(RKC) ,
intent(in) :: abstol
6063 real(RKC) ,
intent(in) :: reltol
6064 type(GK21_type) ,
intent(in) :: qrule
6065 real(RKC) ,
intent(out) :: integral, abserr
6066 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6067 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6068 integer(IK) ,
intent(out) :: neval
6069 integer(IK) ,
intent(out) :: nint
6075 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6077 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6080 procedure(
real(RKC)) :: getFunc
6081 real(RKC) ,
intent(in) :: lb
6082 real(RKC) ,
intent(in) :: ub
6083 real(RKC) ,
intent(in) :: abstol
6084 real(RKC) ,
intent(in) :: reltol
6085 type(GK21_type) ,
intent(in) :: qrule
6086 real(RKC) ,
intent(out) :: integral, abserr
6087 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6088 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6089 integer(IK) ,
intent(out) :: neval
6090 integer(IK) ,
intent(out) :: nint
6096 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6101 procedure(
real(RKC)) :: getFunc
6102 real(RKC) ,
intent(in) :: lb
6103 real(RKC) ,
intent(in) :: ub
6104 real(RKC) ,
intent(in) :: abstol
6105 real(RKC) ,
intent(in) :: reltol
6106 type(GK21_type) ,
intent(in) :: qrule
6107 real(RKC) ,
intent(out) :: integral, abserr
6108 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6109 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6110 integer(IK) ,
intent(out) :: neval
6111 integer(IK) ,
intent(out) :: nint
6119 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6124 procedure(
real(RKC)) :: getFunc
6125 real(RKC) ,
intent(in) :: lb
6126 type(pinf_type) ,
intent(in) :: ub
6127 real(RKC) ,
intent(in) :: abstol
6128 real(RKC) ,
intent(in) :: reltol
6129 type(GK21_type) ,
intent(in) :: qrule
6130 real(RKC) ,
intent(out) :: integral, abserr
6131 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6132 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6133 integer(IK) ,
intent(out) :: neval
6134 integer(IK) ,
intent(out) :: nint
6140 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6145 procedure(
real(RKC)) :: getFunc
6146 real(RKC) ,
intent(in) :: lb
6147 type(pinf_type) ,
intent(in) :: ub
6148 real(RKC) ,
intent(in) :: abstol
6149 real(RKC) ,
intent(in) :: reltol
6150 type(GK21_type) ,
intent(in) :: qrule
6151 real(RKC) ,
intent(out) :: integral, abserr
6152 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6153 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6154 integer(IK) ,
intent(out) :: neval
6155 integer(IK) ,
intent(out) :: nint
6161 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6166 procedure(
real(RKC)) :: getFunc
6167 real(RKC) ,
intent(in) :: lb
6168 type(pinf_type) ,
intent(in) :: ub
6169 real(RKC) ,
intent(in) :: abstol
6170 real(RKC) ,
intent(in) :: reltol
6171 type(GK21_type) ,
intent(in) :: qrule
6172 real(RKC) ,
intent(out) :: integral, abserr
6173 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6174 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6175 integer(IK) ,
intent(out) :: neval
6176 integer(IK) ,
intent(out) :: nint
6182 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6187 procedure(
real(RKC)) :: getFunc
6188 real(RKC) ,
intent(in) :: lb
6189 type(pinf_type) ,
intent(in) :: ub
6190 real(RKC) ,
intent(in) :: abstol
6191 real(RKC) ,
intent(in) :: reltol
6192 type(GK21_type) ,
intent(in) :: qrule
6193 real(RKC) ,
intent(out) :: integral, abserr
6194 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6195 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6196 integer(IK) ,
intent(out) :: neval
6197 integer(IK) ,
intent(out) :: nint
6203 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6205 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6208 procedure(
real(RKC)) :: getFunc
6209 real(RKC) ,
intent(in) :: lb
6210 type(pinf_type) ,
intent(in) :: ub
6211 real(RKC) ,
intent(in) :: abstol
6212 real(RKC) ,
intent(in) :: reltol
6213 type(GK21_type) ,
intent(in) :: qrule
6214 real(RKC) ,
intent(out) :: integral, abserr
6215 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6216 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6217 integer(IK) ,
intent(out) :: neval
6218 integer(IK) ,
intent(out) :: nint
6226 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6231 procedure(
real(RKC)) :: getFunc
6232 type(ninf_type) ,
intent(in) :: lb
6233 real(RKC) ,
intent(in) :: ub
6234 real(RKC) ,
intent(in) :: abstol
6235 real(RKC) ,
intent(in) :: reltol
6236 type(GK21_type) ,
intent(in) :: qrule
6237 real(RKC) ,
intent(out) :: integral, abserr
6238 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6239 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6240 integer(IK) ,
intent(out) :: neval
6241 integer(IK) ,
intent(out) :: nint
6247 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6249 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6252 procedure(
real(RKC)) :: getFunc
6253 type(ninf_type) ,
intent(in) :: lb
6254 real(RKC) ,
intent(in) :: ub
6255 real(RKC) ,
intent(in) :: abstol
6256 real(RKC) ,
intent(in) :: reltol
6257 type(GK21_type) ,
intent(in) :: qrule
6258 real(RKC) ,
intent(out) :: integral, abserr
6259 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6260 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6261 integer(IK) ,
intent(out) :: neval
6262 integer(IK) ,
intent(out) :: nint
6268 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6273 procedure(
real(RKC)) :: getFunc
6274 type(ninf_type) ,
intent(in) :: lb
6275 real(RKC) ,
intent(in) :: ub
6276 real(RKC) ,
intent(in) :: abstol
6277 real(RKC) ,
intent(in) :: reltol
6278 type(GK21_type) ,
intent(in) :: qrule
6279 real(RKC) ,
intent(out) :: integral, abserr
6280 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6281 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6282 integer(IK) ,
intent(out) :: neval
6283 integer(IK) ,
intent(out) :: nint
6289 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6291 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6294 procedure(
real(RKC)) :: getFunc
6295 type(ninf_type) ,
intent(in) :: lb
6296 real(RKC) ,
intent(in) :: ub
6297 real(RKC) ,
intent(in) :: abstol
6298 real(RKC) ,
intent(in) :: reltol
6299 type(GK21_type) ,
intent(in) :: qrule
6300 real(RKC) ,
intent(out) :: integral, abserr
6301 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6302 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6303 integer(IK) ,
intent(out) :: neval
6304 integer(IK) ,
intent(out) :: nint
6310 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6315 procedure(
real(RKC)) :: getFunc
6316 type(ninf_type) ,
intent(in) :: lb
6317 real(RKC) ,
intent(in) :: ub
6318 real(RKC) ,
intent(in) :: abstol
6319 real(RKC) ,
intent(in) :: reltol
6320 type(GK21_type) ,
intent(in) :: qrule
6321 real(RKC) ,
intent(out) :: integral, abserr
6322 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6323 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6324 integer(IK) ,
intent(out) :: neval
6325 integer(IK) ,
intent(out) :: nint
6333 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6335 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6338 procedure(
real(RKC)) :: getFunc
6339 type(ninf_type) ,
intent(in) :: lb
6340 type(pinf_type) ,
intent(in) :: ub
6341 real(RKC) ,
intent(in) :: abstol
6342 real(RKC) ,
intent(in) :: reltol
6343 type(GK21_type) ,
intent(in) :: qrule
6344 real(RKC) ,
intent(out) :: integral, abserr
6345 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6346 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6347 integer(IK) ,
intent(out) :: neval
6348 integer(IK) ,
intent(out) :: nint
6354 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6356 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6359 procedure(
real(RKC)) :: getFunc
6360 type(ninf_type) ,
intent(in) :: lb
6361 type(pinf_type) ,
intent(in) :: ub
6362 real(RKC) ,
intent(in) :: abstol
6363 real(RKC) ,
intent(in) :: reltol
6364 type(GK21_type) ,
intent(in) :: qrule
6365 real(RKC) ,
intent(out) :: integral, abserr
6366 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6367 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6368 integer(IK) ,
intent(out) :: neval
6369 integer(IK) ,
intent(out) :: nint
6375 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6377 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6380 procedure(
real(RKC)) :: getFunc
6381 type(ninf_type) ,
intent(in) :: lb
6382 type(pinf_type) ,
intent(in) :: ub
6383 real(RKC) ,
intent(in) :: abstol
6384 real(RKC) ,
intent(in) :: reltol
6385 type(GK21_type) ,
intent(in) :: qrule
6386 real(RKC) ,
intent(out) :: integral, abserr
6387 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6388 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6389 integer(IK) ,
intent(out) :: neval
6390 integer(IK) ,
intent(out) :: nint
6396 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6401 procedure(
real(RKC)) :: getFunc
6402 type(ninf_type) ,
intent(in) :: lb
6403 type(pinf_type) ,
intent(in) :: ub
6404 real(RKC) ,
intent(in) :: abstol
6405 real(RKC) ,
intent(in) :: reltol
6406 type(GK21_type) ,
intent(in) :: qrule
6407 real(RKC) ,
intent(out) :: integral, abserr
6408 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6409 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6410 integer(IK) ,
intent(out) :: neval
6411 integer(IK) ,
intent(out) :: nint
6417 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6418#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6419 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6422 procedure(
real(RKC)) :: getFunc
6423 type(ninf_type) ,
intent(in) :: lb
6424 type(pinf_type) ,
intent(in) :: ub
6425 real(RKC) ,
intent(in) :: abstol
6426 real(RKC) ,
intent(in) :: reltol
6427 type(GK21_type) ,
intent(in) :: qrule
6428 real(RKC) ,
intent(out) :: integral, abserr
6429 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6430 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6431 integer(IK) ,
intent(out) :: neval
6432 integer(IK) ,
intent(out) :: nint
6448 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6453 procedure(
real(RKC)) :: getFunc
6454 real(RKC) ,
intent(in) :: lb
6455 real(RKC) ,
intent(in) :: ub
6456 real(RKC) ,
intent(in) :: abstol
6457 real(RKC) ,
intent(in) :: reltol
6458 type(GK31_type) ,
intent(in) :: qrule
6459 real(RKC) ,
intent(out) :: integral, abserr
6460 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6461 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6462 integer(IK) ,
intent(out) :: neval
6463 integer(IK) ,
intent(out) :: nint
6469 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6474 procedure(
real(RKC)) :: getFunc
6475 real(RKC) ,
intent(in) :: lb
6476 real(RKC) ,
intent(in) :: ub
6477 real(RKC) ,
intent(in) :: abstol
6478 real(RKC) ,
intent(in) :: reltol
6479 type(GK31_type) ,
intent(in) :: qrule
6480 real(RKC) ,
intent(out) :: integral, abserr
6481 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6482 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6483 integer(IK) ,
intent(out) :: neval
6484 integer(IK) ,
intent(out) :: nint
6490 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6495 procedure(
real(RKC)) :: getFunc
6496 real(RKC) ,
intent(in) :: lb
6497 real(RKC) ,
intent(in) :: ub
6498 real(RKC) ,
intent(in) :: abstol
6499 real(RKC) ,
intent(in) :: reltol
6500 type(GK31_type) ,
intent(in) :: qrule
6501 real(RKC) ,
intent(out) :: integral, abserr
6502 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6503 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6504 integer(IK) ,
intent(out) :: neval
6505 integer(IK) ,
intent(out) :: nint
6511 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6513 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6516 procedure(
real(RKC)) :: getFunc
6517 real(RKC) ,
intent(in) :: lb
6518 real(RKC) ,
intent(in) :: ub
6519 real(RKC) ,
intent(in) :: abstol
6520 real(RKC) ,
intent(in) :: reltol
6521 type(GK31_type) ,
intent(in) :: qrule
6522 real(RKC) ,
intent(out) :: integral, abserr
6523 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6524 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6525 integer(IK) ,
intent(out) :: neval
6526 integer(IK) ,
intent(out) :: nint
6532 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6534 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6537 procedure(
real(RKC)) :: getFunc
6538 real(RKC) ,
intent(in) :: lb
6539 real(RKC) ,
intent(in) :: ub
6540 real(RKC) ,
intent(in) :: abstol
6541 real(RKC) ,
intent(in) :: reltol
6542 type(GK31_type) ,
intent(in) :: qrule
6543 real(RKC) ,
intent(out) :: integral, abserr
6544 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6545 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6546 integer(IK) ,
intent(out) :: neval
6547 integer(IK) ,
intent(out) :: nint
6555 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6560 procedure(
real(RKC)) :: getFunc
6561 real(RKC) ,
intent(in) :: lb
6562 type(pinf_type) ,
intent(in) :: ub
6563 real(RKC) ,
intent(in) :: abstol
6564 real(RKC) ,
intent(in) :: reltol
6565 type(GK31_type) ,
intent(in) :: qrule
6566 real(RKC) ,
intent(out) :: integral, abserr
6567 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6568 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6569 integer(IK) ,
intent(out) :: neval
6570 integer(IK) ,
intent(out) :: nint
6576 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6581 procedure(
real(RKC)) :: getFunc
6582 real(RKC) ,
intent(in) :: lb
6583 type(pinf_type) ,
intent(in) :: ub
6584 real(RKC) ,
intent(in) :: abstol
6585 real(RKC) ,
intent(in) :: reltol
6586 type(GK31_type) ,
intent(in) :: qrule
6587 real(RKC) ,
intent(out) :: integral, abserr
6588 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6589 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6590 integer(IK) ,
intent(out) :: neval
6591 integer(IK) ,
intent(out) :: nint
6597 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6602 procedure(
real(RKC)) :: getFunc
6603 real(RKC) ,
intent(in) :: lb
6604 type(pinf_type) ,
intent(in) :: ub
6605 real(RKC) ,
intent(in) :: abstol
6606 real(RKC) ,
intent(in) :: reltol
6607 type(GK31_type) ,
intent(in) :: qrule
6608 real(RKC) ,
intent(out) :: integral, abserr
6609 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6610 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6611 integer(IK) ,
intent(out) :: neval
6612 integer(IK) ,
intent(out) :: nint
6618 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6623 procedure(
real(RKC)) :: getFunc
6624 real(RKC) ,
intent(in) :: lb
6625 type(pinf_type) ,
intent(in) :: ub
6626 real(RKC) ,
intent(in) :: abstol
6627 real(RKC) ,
intent(in) :: reltol
6628 type(GK31_type) ,
intent(in) :: qrule
6629 real(RKC) ,
intent(out) :: integral, abserr
6630 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6631 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6632 integer(IK) ,
intent(out) :: neval
6633 integer(IK) ,
intent(out) :: nint
6639 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6640#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6641 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6644 procedure(
real(RKC)) :: getFunc
6645 real(RKC) ,
intent(in) :: lb
6646 type(pinf_type) ,
intent(in) :: ub
6647 real(RKC) ,
intent(in) :: abstol
6648 real(RKC) ,
intent(in) :: reltol
6649 type(GK31_type) ,
intent(in) :: qrule
6650 real(RKC) ,
intent(out) :: integral, abserr
6651 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6652 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6653 integer(IK) ,
intent(out) :: neval
6654 integer(IK) ,
intent(out) :: nint
6662 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6667 procedure(
real(RKC)) :: getFunc
6668 type(ninf_type) ,
intent(in) :: lb
6669 real(RKC) ,
intent(in) :: ub
6670 real(RKC) ,
intent(in) :: abstol
6671 real(RKC) ,
intent(in) :: reltol
6672 type(GK31_type) ,
intent(in) :: qrule
6673 real(RKC) ,
intent(out) :: integral, abserr
6674 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6675 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6676 integer(IK) ,
intent(out) :: neval
6677 integer(IK) ,
intent(out) :: nint
6683 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6688 procedure(
real(RKC)) :: getFunc
6689 type(ninf_type) ,
intent(in) :: lb
6690 real(RKC) ,
intent(in) :: ub
6691 real(RKC) ,
intent(in) :: abstol
6692 real(RKC) ,
intent(in) :: reltol
6693 type(GK31_type) ,
intent(in) :: qrule
6694 real(RKC) ,
intent(out) :: integral, abserr
6695 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6696 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6697 integer(IK) ,
intent(out) :: neval
6698 integer(IK) ,
intent(out) :: nint
6704 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6709 procedure(
real(RKC)) :: getFunc
6710 type(ninf_type) ,
intent(in) :: lb
6711 real(RKC) ,
intent(in) :: ub
6712 real(RKC) ,
intent(in) :: abstol
6713 real(RKC) ,
intent(in) :: reltol
6714 type(GK31_type) ,
intent(in) :: qrule
6715 real(RKC) ,
intent(out) :: integral, abserr
6716 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6717 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6718 integer(IK) ,
intent(out) :: neval
6719 integer(IK) ,
intent(out) :: nint
6725 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6730 procedure(
real(RKC)) :: getFunc
6731 type(ninf_type) ,
intent(in) :: lb
6732 real(RKC) ,
intent(in) :: ub
6733 real(RKC) ,
intent(in) :: abstol
6734 real(RKC) ,
intent(in) :: reltol
6735 type(GK31_type) ,
intent(in) :: qrule
6736 real(RKC) ,
intent(out) :: integral, abserr
6737 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6738 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6739 integer(IK) ,
intent(out) :: neval
6740 integer(IK) ,
intent(out) :: nint
6746 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6751 procedure(
real(RKC)) :: getFunc
6752 type(ninf_type) ,
intent(in) :: lb
6753 real(RKC) ,
intent(in) :: ub
6754 real(RKC) ,
intent(in) :: abstol
6755 real(RKC) ,
intent(in) :: reltol
6756 type(GK31_type) ,
intent(in) :: qrule
6757 real(RKC) ,
intent(out) :: integral, abserr
6758 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6759 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6760 integer(IK) ,
intent(out) :: neval
6761 integer(IK) ,
intent(out) :: nint
6769 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6771 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6774 procedure(
real(RKC)) :: getFunc
6775 type(ninf_type) ,
intent(in) :: lb
6776 type(pinf_type) ,
intent(in) :: ub
6777 real(RKC) ,
intent(in) :: abstol
6778 real(RKC) ,
intent(in) :: reltol
6779 type(GK31_type) ,
intent(in) :: qrule
6780 real(RKC) ,
intent(out) :: integral, abserr
6781 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6782 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6783 integer(IK) ,
intent(out) :: neval
6784 integer(IK) ,
intent(out) :: nint
6790 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6795 procedure(
real(RKC)) :: getFunc
6796 type(ninf_type) ,
intent(in) :: lb
6797 type(pinf_type) ,
intent(in) :: ub
6798 real(RKC) ,
intent(in) :: abstol
6799 real(RKC) ,
intent(in) :: reltol
6800 type(GK31_type) ,
intent(in) :: qrule
6801 real(RKC) ,
intent(out) :: integral, abserr
6802 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6803 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6804 integer(IK) ,
intent(out) :: neval
6805 integer(IK) ,
intent(out) :: nint
6811 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6813 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6816 procedure(
real(RKC)) :: getFunc
6817 type(ninf_type) ,
intent(in) :: lb
6818 type(pinf_type) ,
intent(in) :: ub
6819 real(RKC) ,
intent(in) :: abstol
6820 real(RKC) ,
intent(in) :: reltol
6821 type(GK31_type) ,
intent(in) :: qrule
6822 real(RKC) ,
intent(out) :: integral, abserr
6823 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6824 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6825 integer(IK) ,
intent(out) :: neval
6826 integer(IK) ,
intent(out) :: nint
6832 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6837 procedure(
real(RKC)) :: getFunc
6838 type(ninf_type) ,
intent(in) :: lb
6839 type(pinf_type) ,
intent(in) :: ub
6840 real(RKC) ,
intent(in) :: abstol
6841 real(RKC) ,
intent(in) :: reltol
6842 type(GK31_type) ,
intent(in) :: qrule
6843 real(RKC) ,
intent(out) :: integral, abserr
6844 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6845 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6846 integer(IK) ,
intent(out) :: neval
6847 integer(IK) ,
intent(out) :: nint
6853 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6855 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6858 procedure(
real(RKC)) :: getFunc
6859 type(ninf_type) ,
intent(in) :: lb
6860 type(pinf_type) ,
intent(in) :: ub
6861 real(RKC) ,
intent(in) :: abstol
6862 real(RKC) ,
intent(in) :: reltol
6863 type(GK31_type) ,
intent(in) :: qrule
6864 real(RKC) ,
intent(out) :: integral, abserr
6865 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6866 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6867 integer(IK) ,
intent(out) :: neval
6868 integer(IK) ,
intent(out) :: nint
6884 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6886 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6889 procedure(
real(RKC)) :: getFunc
6890 real(RKC) ,
intent(in) :: lb
6891 real(RKC) ,
intent(in) :: ub
6892 real(RKC) ,
intent(in) :: abstol
6893 real(RKC) ,
intent(in) :: reltol
6894 type(GK41_type) ,
intent(in) :: qrule
6895 real(RKC) ,
intent(out) :: integral, abserr
6896 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6897 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6898 integer(IK) ,
intent(out) :: neval
6899 integer(IK) ,
intent(out) :: nint
6905 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6907 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6910 procedure(
real(RKC)) :: getFunc
6911 real(RKC) ,
intent(in) :: lb
6912 real(RKC) ,
intent(in) :: ub
6913 real(RKC) ,
intent(in) :: abstol
6914 real(RKC) ,
intent(in) :: reltol
6915 type(GK41_type) ,
intent(in) :: qrule
6916 real(RKC) ,
intent(out) :: integral, abserr
6917 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6918 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6919 integer(IK) ,
intent(out) :: neval
6920 integer(IK) ,
intent(out) :: nint
6926 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6931 procedure(
real(RKC)) :: getFunc
6932 real(RKC) ,
intent(in) :: lb
6933 real(RKC) ,
intent(in) :: ub
6934 real(RKC) ,
intent(in) :: abstol
6935 real(RKC) ,
intent(in) :: reltol
6936 type(GK41_type) ,
intent(in) :: qrule
6937 real(RKC) ,
intent(out) :: integral, abserr
6938 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6939 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6940 integer(IK) ,
intent(out) :: neval
6941 integer(IK) ,
intent(out) :: nint
6947 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6949 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
6952 procedure(
real(RKC)) :: getFunc
6953 real(RKC) ,
intent(in) :: lb
6954 real(RKC) ,
intent(in) :: ub
6955 real(RKC) ,
intent(in) :: abstol
6956 real(RKC) ,
intent(in) :: reltol
6957 type(GK41_type) ,
intent(in) :: qrule
6958 real(RKC) ,
intent(out) :: integral, abserr
6959 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6960 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6961 integer(IK) ,
intent(out) :: neval
6962 integer(IK) ,
intent(out) :: nint
6968 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
6973 procedure(
real(RKC)) :: getFunc
6974 real(RKC) ,
intent(in) :: lb
6975 real(RKC) ,
intent(in) :: ub
6976 real(RKC) ,
intent(in) :: abstol
6977 real(RKC) ,
intent(in) :: reltol
6978 type(GK41_type) ,
intent(in) :: qrule
6979 real(RKC) ,
intent(out) :: integral, abserr
6980 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
6981 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
6982 integer(IK) ,
intent(out) :: neval
6983 integer(IK) ,
intent(out) :: nint
6991 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
6992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6993 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
6996 procedure(
real(RKC)) :: getFunc
6997 real(RKC) ,
intent(in) :: lb
6998 type(pinf_type) ,
intent(in) :: ub
6999 real(RKC) ,
intent(in) :: abstol
7000 real(RKC) ,
intent(in) :: reltol
7001 type(GK41_type) ,
intent(in) :: qrule
7002 real(RKC) ,
intent(out) :: integral, abserr
7003 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7004 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7005 integer(IK) ,
intent(out) :: neval
7006 integer(IK) ,
intent(out) :: nint
7012 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7017 procedure(
real(RKC)) :: getFunc
7018 real(RKC) ,
intent(in) :: lb
7019 type(pinf_type) ,
intent(in) :: ub
7020 real(RKC) ,
intent(in) :: abstol
7021 real(RKC) ,
intent(in) :: reltol
7022 type(GK41_type) ,
intent(in) :: qrule
7023 real(RKC) ,
intent(out) :: integral, abserr
7024 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7025 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7026 integer(IK) ,
intent(out) :: neval
7027 integer(IK) ,
intent(out) :: nint
7033 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7038 procedure(
real(RKC)) :: getFunc
7039 real(RKC) ,
intent(in) :: lb
7040 type(pinf_type) ,
intent(in) :: ub
7041 real(RKC) ,
intent(in) :: abstol
7042 real(RKC) ,
intent(in) :: reltol
7043 type(GK41_type) ,
intent(in) :: qrule
7044 real(RKC) ,
intent(out) :: integral, abserr
7045 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7046 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7047 integer(IK) ,
intent(out) :: neval
7048 integer(IK) ,
intent(out) :: nint
7054 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7059 procedure(
real(RKC)) :: getFunc
7060 real(RKC) ,
intent(in) :: lb
7061 type(pinf_type) ,
intent(in) :: ub
7062 real(RKC) ,
intent(in) :: abstol
7063 real(RKC) ,
intent(in) :: reltol
7064 type(GK41_type) ,
intent(in) :: qrule
7065 real(RKC) ,
intent(out) :: integral, abserr
7066 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7067 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7068 integer(IK) ,
intent(out) :: neval
7069 integer(IK) ,
intent(out) :: nint
7075 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7077 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7080 procedure(
real(RKC)) :: getFunc
7081 real(RKC) ,
intent(in) :: lb
7082 type(pinf_type) ,
intent(in) :: ub
7083 real(RKC) ,
intent(in) :: abstol
7084 real(RKC) ,
intent(in) :: reltol
7085 type(GK41_type) ,
intent(in) :: qrule
7086 real(RKC) ,
intent(out) :: integral, abserr
7087 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7088 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7089 integer(IK) ,
intent(out) :: neval
7090 integer(IK) ,
intent(out) :: nint
7098 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7103 procedure(
real(RKC)) :: getFunc
7104 type(ninf_type) ,
intent(in) :: lb
7105 real(RKC) ,
intent(in) :: ub
7106 real(RKC) ,
intent(in) :: abstol
7107 real(RKC) ,
intent(in) :: reltol
7108 type(GK41_type) ,
intent(in) :: qrule
7109 real(RKC) ,
intent(out) :: integral, abserr
7110 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7111 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7112 integer(IK) ,
intent(out) :: neval
7113 integer(IK) ,
intent(out) :: nint
7119 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7124 procedure(
real(RKC)) :: getFunc
7125 type(ninf_type) ,
intent(in) :: lb
7126 real(RKC) ,
intent(in) :: ub
7127 real(RKC) ,
intent(in) :: abstol
7128 real(RKC) ,
intent(in) :: reltol
7129 type(GK41_type) ,
intent(in) :: qrule
7130 real(RKC) ,
intent(out) :: integral, abserr
7131 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7132 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7133 integer(IK) ,
intent(out) :: neval
7134 integer(IK) ,
intent(out) :: nint
7140 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7145 procedure(
real(RKC)) :: getFunc
7146 type(ninf_type) ,
intent(in) :: lb
7147 real(RKC) ,
intent(in) :: ub
7148 real(RKC) ,
intent(in) :: abstol
7149 real(RKC) ,
intent(in) :: reltol
7150 type(GK41_type) ,
intent(in) :: qrule
7151 real(RKC) ,
intent(out) :: integral, abserr
7152 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7153 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7154 integer(IK) ,
intent(out) :: neval
7155 integer(IK) ,
intent(out) :: nint
7161 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7166 procedure(
real(RKC)) :: getFunc
7167 type(ninf_type) ,
intent(in) :: lb
7168 real(RKC) ,
intent(in) :: ub
7169 real(RKC) ,
intent(in) :: abstol
7170 real(RKC) ,
intent(in) :: reltol
7171 type(GK41_type) ,
intent(in) :: qrule
7172 real(RKC) ,
intent(out) :: integral, abserr
7173 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7174 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7175 integer(IK) ,
intent(out) :: neval
7176 integer(IK) ,
intent(out) :: nint
7182 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7187 procedure(
real(RKC)) :: getFunc
7188 type(ninf_type) ,
intent(in) :: lb
7189 real(RKC) ,
intent(in) :: ub
7190 real(RKC) ,
intent(in) :: abstol
7191 real(RKC) ,
intent(in) :: reltol
7192 type(GK41_type) ,
intent(in) :: qrule
7193 real(RKC) ,
intent(out) :: integral, abserr
7194 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7195 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7196 integer(IK) ,
intent(out) :: neval
7197 integer(IK) ,
intent(out) :: nint
7205 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7207 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7210 procedure(
real(RKC)) :: getFunc
7211 type(ninf_type) ,
intent(in) :: lb
7212 type(pinf_type) ,
intent(in) :: ub
7213 real(RKC) ,
intent(in) :: abstol
7214 real(RKC) ,
intent(in) :: reltol
7215 type(GK41_type) ,
intent(in) :: qrule
7216 real(RKC) ,
intent(out) :: integral, abserr
7217 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7218 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7219 integer(IK) ,
intent(out) :: neval
7220 integer(IK) ,
intent(out) :: nint
7226 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7231 procedure(
real(RKC)) :: getFunc
7232 type(ninf_type) ,
intent(in) :: lb
7233 type(pinf_type) ,
intent(in) :: ub
7234 real(RKC) ,
intent(in) :: abstol
7235 real(RKC) ,
intent(in) :: reltol
7236 type(GK41_type) ,
intent(in) :: qrule
7237 real(RKC) ,
intent(out) :: integral, abserr
7238 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7239 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7240 integer(IK) ,
intent(out) :: neval
7241 integer(IK) ,
intent(out) :: nint
7247 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7249 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7252 procedure(
real(RKC)) :: getFunc
7253 type(ninf_type) ,
intent(in) :: lb
7254 type(pinf_type) ,
intent(in) :: ub
7255 real(RKC) ,
intent(in) :: abstol
7256 real(RKC) ,
intent(in) :: reltol
7257 type(GK41_type) ,
intent(in) :: qrule
7258 real(RKC) ,
intent(out) :: integral, abserr
7259 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7260 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7261 integer(IK) ,
intent(out) :: neval
7262 integer(IK) ,
intent(out) :: nint
7268 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7273 procedure(
real(RKC)) :: getFunc
7274 type(ninf_type) ,
intent(in) :: lb
7275 type(pinf_type) ,
intent(in) :: ub
7276 real(RKC) ,
intent(in) :: abstol
7277 real(RKC) ,
intent(in) :: reltol
7278 type(GK41_type) ,
intent(in) :: qrule
7279 real(RKC) ,
intent(out) :: integral, abserr
7280 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7281 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7282 integer(IK) ,
intent(out) :: neval
7283 integer(IK) ,
intent(out) :: nint
7289 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7291 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7294 procedure(
real(RKC)) :: getFunc
7295 type(ninf_type) ,
intent(in) :: lb
7296 type(pinf_type) ,
intent(in) :: ub
7297 real(RKC) ,
intent(in) :: abstol
7298 real(RKC) ,
intent(in) :: reltol
7299 type(GK41_type) ,
intent(in) :: qrule
7300 real(RKC) ,
intent(out) :: integral, abserr
7301 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7302 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7303 integer(IK) ,
intent(out) :: neval
7304 integer(IK) ,
intent(out) :: nint
7320 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7322 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7325 procedure(
real(RKC)) :: getFunc
7326 real(RKC) ,
intent(in) :: lb
7327 real(RKC) ,
intent(in) :: ub
7328 real(RKC) ,
intent(in) :: abstol
7329 real(RKC) ,
intent(in) :: reltol
7330 type(GK51_type) ,
intent(in) :: qrule
7331 real(RKC) ,
intent(out) :: integral, abserr
7332 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7333 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7334 integer(IK) ,
intent(out) :: neval
7335 integer(IK) ,
intent(out) :: nint
7341 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7343 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7346 procedure(
real(RKC)) :: getFunc
7347 real(RKC) ,
intent(in) :: lb
7348 real(RKC) ,
intent(in) :: ub
7349 real(RKC) ,
intent(in) :: abstol
7350 real(RKC) ,
intent(in) :: reltol
7351 type(GK51_type) ,
intent(in) :: qrule
7352 real(RKC) ,
intent(out) :: integral, abserr
7353 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7354 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7355 integer(IK) ,
intent(out) :: neval
7356 integer(IK) ,
intent(out) :: nint
7362 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7364 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7367 procedure(
real(RKC)) :: getFunc
7368 real(RKC) ,
intent(in) :: lb
7369 real(RKC) ,
intent(in) :: ub
7370 real(RKC) ,
intent(in) :: abstol
7371 real(RKC) ,
intent(in) :: reltol
7372 type(GK51_type) ,
intent(in) :: qrule
7373 real(RKC) ,
intent(out) :: integral, abserr
7374 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7375 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7376 integer(IK) ,
intent(out) :: neval
7377 integer(IK) ,
intent(out) :: nint
7383 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7385 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7388 procedure(
real(RKC)) :: getFunc
7389 real(RKC) ,
intent(in) :: lb
7390 real(RKC) ,
intent(in) :: ub
7391 real(RKC) ,
intent(in) :: abstol
7392 real(RKC) ,
intent(in) :: reltol
7393 type(GK51_type) ,
intent(in) :: qrule
7394 real(RKC) ,
intent(out) :: integral, abserr
7395 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7396 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7397 integer(IK) ,
intent(out) :: neval
7398 integer(IK) ,
intent(out) :: nint
7404 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7409 procedure(
real(RKC)) :: getFunc
7410 real(RKC) ,
intent(in) :: lb
7411 real(RKC) ,
intent(in) :: ub
7412 real(RKC) ,
intent(in) :: abstol
7413 real(RKC) ,
intent(in) :: reltol
7414 type(GK51_type) ,
intent(in) :: qrule
7415 real(RKC) ,
intent(out) :: integral, abserr
7416 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7417 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7418 integer(IK) ,
intent(out) :: neval
7419 integer(IK) ,
intent(out) :: nint
7427 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7429 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7432 procedure(
real(RKC)) :: getFunc
7433 real(RKC) ,
intent(in) :: lb
7434 type(pinf_type) ,
intent(in) :: ub
7435 real(RKC) ,
intent(in) :: abstol
7436 real(RKC) ,
intent(in) :: reltol
7437 type(GK51_type) ,
intent(in) :: qrule
7438 real(RKC) ,
intent(out) :: integral, abserr
7439 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7440 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7441 integer(IK) ,
intent(out) :: neval
7442 integer(IK) ,
intent(out) :: nint
7448 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7453 procedure(
real(RKC)) :: getFunc
7454 real(RKC) ,
intent(in) :: lb
7455 type(pinf_type) ,
intent(in) :: ub
7456 real(RKC) ,
intent(in) :: abstol
7457 real(RKC) ,
intent(in) :: reltol
7458 type(GK51_type) ,
intent(in) :: qrule
7459 real(RKC) ,
intent(out) :: integral, abserr
7460 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7461 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7462 integer(IK) ,
intent(out) :: neval
7463 integer(IK) ,
intent(out) :: nint
7469 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7474 procedure(
real(RKC)) :: getFunc
7475 real(RKC) ,
intent(in) :: lb
7476 type(pinf_type) ,
intent(in) :: ub
7477 real(RKC) ,
intent(in) :: abstol
7478 real(RKC) ,
intent(in) :: reltol
7479 type(GK51_type) ,
intent(in) :: qrule
7480 real(RKC) ,
intent(out) :: integral, abserr
7481 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7482 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7483 integer(IK) ,
intent(out) :: neval
7484 integer(IK) ,
intent(out) :: nint
7490 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7495 procedure(
real(RKC)) :: getFunc
7496 real(RKC) ,
intent(in) :: lb
7497 type(pinf_type) ,
intent(in) :: ub
7498 real(RKC) ,
intent(in) :: abstol
7499 real(RKC) ,
intent(in) :: reltol
7500 type(GK51_type) ,
intent(in) :: qrule
7501 real(RKC) ,
intent(out) :: integral, abserr
7502 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7503 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7504 integer(IK) ,
intent(out) :: neval
7505 integer(IK) ,
intent(out) :: nint
7511 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7513 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7516 procedure(
real(RKC)) :: getFunc
7517 real(RKC) ,
intent(in) :: lb
7518 type(pinf_type) ,
intent(in) :: ub
7519 real(RKC) ,
intent(in) :: abstol
7520 real(RKC) ,
intent(in) :: reltol
7521 type(GK51_type) ,
intent(in) :: qrule
7522 real(RKC) ,
intent(out) :: integral, abserr
7523 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7524 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7525 integer(IK) ,
intent(out) :: neval
7526 integer(IK) ,
intent(out) :: nint
7534 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7539 procedure(
real(RKC)) :: getFunc
7540 type(ninf_type) ,
intent(in) :: lb
7541 real(RKC) ,
intent(in) :: ub
7542 real(RKC) ,
intent(in) :: abstol
7543 real(RKC) ,
intent(in) :: reltol
7544 type(GK51_type) ,
intent(in) :: qrule
7545 real(RKC) ,
intent(out) :: integral, abserr
7546 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7547 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7548 integer(IK) ,
intent(out) :: neval
7549 integer(IK) ,
intent(out) :: nint
7555 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7560 procedure(
real(RKC)) :: getFunc
7561 type(ninf_type) ,
intent(in) :: lb
7562 real(RKC) ,
intent(in) :: ub
7563 real(RKC) ,
intent(in) :: abstol
7564 real(RKC) ,
intent(in) :: reltol
7565 type(GK51_type) ,
intent(in) :: qrule
7566 real(RKC) ,
intent(out) :: integral, abserr
7567 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7568 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7569 integer(IK) ,
intent(out) :: neval
7570 integer(IK) ,
intent(out) :: nint
7576 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7581 procedure(
real(RKC)) :: getFunc
7582 type(ninf_type) ,
intent(in) :: lb
7583 real(RKC) ,
intent(in) :: ub
7584 real(RKC) ,
intent(in) :: abstol
7585 real(RKC) ,
intent(in) :: reltol
7586 type(GK51_type) ,
intent(in) :: qrule
7587 real(RKC) ,
intent(out) :: integral, abserr
7588 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7589 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7590 integer(IK) ,
intent(out) :: neval
7591 integer(IK) ,
intent(out) :: nint
7597 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7602 procedure(
real(RKC)) :: getFunc
7603 type(ninf_type) ,
intent(in) :: lb
7604 real(RKC) ,
intent(in) :: ub
7605 real(RKC) ,
intent(in) :: abstol
7606 real(RKC) ,
intent(in) :: reltol
7607 type(GK51_type) ,
intent(in) :: qrule
7608 real(RKC) ,
intent(out) :: integral, abserr
7609 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7610 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7611 integer(IK) ,
intent(out) :: neval
7612 integer(IK) ,
intent(out) :: nint
7618 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7623 procedure(
real(RKC)) :: getFunc
7624 type(ninf_type) ,
intent(in) :: lb
7625 real(RKC) ,
intent(in) :: ub
7626 real(RKC) ,
intent(in) :: abstol
7627 real(RKC) ,
intent(in) :: reltol
7628 type(GK51_type) ,
intent(in) :: qrule
7629 real(RKC) ,
intent(out) :: integral, abserr
7630 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7631 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7632 integer(IK) ,
intent(out) :: neval
7633 integer(IK) ,
intent(out) :: nint
7641 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7646 procedure(
real(RKC)) :: getFunc
7647 type(ninf_type) ,
intent(in) :: lb
7648 type(pinf_type) ,
intent(in) :: ub
7649 real(RKC) ,
intent(in) :: abstol
7650 real(RKC) ,
intent(in) :: reltol
7651 type(GK51_type) ,
intent(in) :: qrule
7652 real(RKC) ,
intent(out) :: integral, abserr
7653 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7654 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7655 integer(IK) ,
intent(out) :: neval
7656 integer(IK) ,
intent(out) :: nint
7662 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7667 procedure(
real(RKC)) :: getFunc
7668 type(ninf_type) ,
intent(in) :: lb
7669 type(pinf_type) ,
intent(in) :: ub
7670 real(RKC) ,
intent(in) :: abstol
7671 real(RKC) ,
intent(in) :: reltol
7672 type(GK51_type) ,
intent(in) :: qrule
7673 real(RKC) ,
intent(out) :: integral, abserr
7674 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7675 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7676 integer(IK) ,
intent(out) :: neval
7677 integer(IK) ,
intent(out) :: nint
7683 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7684#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7685 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7688 procedure(
real(RKC)) :: getFunc
7689 type(ninf_type) ,
intent(in) :: lb
7690 type(pinf_type) ,
intent(in) :: ub
7691 real(RKC) ,
intent(in) :: abstol
7692 real(RKC) ,
intent(in) :: reltol
7693 type(GK51_type) ,
intent(in) :: qrule
7694 real(RKC) ,
intent(out) :: integral, abserr
7695 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7696 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7697 integer(IK) ,
intent(out) :: neval
7698 integer(IK) ,
intent(out) :: nint
7704 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7709 procedure(
real(RKC)) :: getFunc
7710 type(ninf_type) ,
intent(in) :: lb
7711 type(pinf_type) ,
intent(in) :: ub
7712 real(RKC) ,
intent(in) :: abstol
7713 real(RKC) ,
intent(in) :: reltol
7714 type(GK51_type) ,
intent(in) :: qrule
7715 real(RKC) ,
intent(out) :: integral, abserr
7716 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7717 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7718 integer(IK) ,
intent(out) :: neval
7719 integer(IK) ,
intent(out) :: nint
7725 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7727 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7730 procedure(
real(RKC)) :: getFunc
7731 type(ninf_type) ,
intent(in) :: lb
7732 type(pinf_type) ,
intent(in) :: ub
7733 real(RKC) ,
intent(in) :: abstol
7734 real(RKC) ,
intent(in) :: reltol
7735 type(GK51_type) ,
intent(in) :: qrule
7736 real(RKC) ,
intent(out) :: integral, abserr
7737 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7738 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7739 integer(IK) ,
intent(out) :: neval
7740 integer(IK) ,
intent(out) :: nint
7756 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7758 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7761 procedure(
real(RKC)) :: getFunc
7762 real(RKC) ,
intent(in) :: lb
7763 real(RKC) ,
intent(in) :: ub
7764 real(RKC) ,
intent(in) :: abstol
7765 real(RKC) ,
intent(in) :: reltol
7766 type(GK61_type) ,
intent(in) :: qrule
7767 real(RKC) ,
intent(out) :: integral, abserr
7768 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7769 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7770 integer(IK) ,
intent(out) :: neval
7771 integer(IK) ,
intent(out) :: nint
7777 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7779 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7782 procedure(
real(RKC)) :: getFunc
7783 real(RKC) ,
intent(in) :: lb
7784 real(RKC) ,
intent(in) :: ub
7785 real(RKC) ,
intent(in) :: abstol
7786 real(RKC) ,
intent(in) :: reltol
7787 type(GK61_type) ,
intent(in) :: qrule
7788 real(RKC) ,
intent(out) :: integral, abserr
7789 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7790 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7791 integer(IK) ,
intent(out) :: neval
7792 integer(IK) ,
intent(out) :: nint
7798 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7800 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7803 procedure(
real(RKC)) :: getFunc
7804 real(RKC) ,
intent(in) :: lb
7805 real(RKC) ,
intent(in) :: ub
7806 real(RKC) ,
intent(in) :: abstol
7807 real(RKC) ,
intent(in) :: reltol
7808 type(GK61_type) ,
intent(in) :: qrule
7809 real(RKC) ,
intent(out) :: integral, abserr
7810 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7811 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7812 integer(IK) ,
intent(out) :: neval
7813 integer(IK) ,
intent(out) :: nint
7819 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7821 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7824 procedure(
real(RKC)) :: getFunc
7825 real(RKC) ,
intent(in) :: lb
7826 real(RKC) ,
intent(in) :: ub
7827 real(RKC) ,
intent(in) :: abstol
7828 real(RKC) ,
intent(in) :: reltol
7829 type(GK61_type) ,
intent(in) :: qrule
7830 real(RKC) ,
intent(out) :: integral, abserr
7831 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7832 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7833 integer(IK) ,
intent(out) :: neval
7834 integer(IK) ,
intent(out) :: nint
7840 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7841#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7842 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7845 procedure(
real(RKC)) :: getFunc
7846 real(RKC) ,
intent(in) :: lb
7847 real(RKC) ,
intent(in) :: ub
7848 real(RKC) ,
intent(in) :: abstol
7849 real(RKC) ,
intent(in) :: reltol
7850 type(GK61_type) ,
intent(in) :: qrule
7851 real(RKC) ,
intent(out) :: integral, abserr
7852 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7853 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7854 integer(IK) ,
intent(out) :: neval
7855 integer(IK) ,
intent(out) :: nint
7863 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7865 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7868 procedure(
real(RKC)) :: getFunc
7869 real(RKC) ,
intent(in) :: lb
7870 type(pinf_type) ,
intent(in) :: ub
7871 real(RKC) ,
intent(in) :: abstol
7872 real(RKC) ,
intent(in) :: reltol
7873 type(GK61_type) ,
intent(in) :: qrule
7874 real(RKC) ,
intent(out) :: integral, abserr
7875 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7876 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7877 integer(IK) ,
intent(out) :: neval
7878 integer(IK) ,
intent(out) :: nint
7884 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7886 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7889 procedure(
real(RKC)) :: getFunc
7890 real(RKC) ,
intent(in) :: lb
7891 type(pinf_type) ,
intent(in) :: ub
7892 real(RKC) ,
intent(in) :: abstol
7893 real(RKC) ,
intent(in) :: reltol
7894 type(GK61_type) ,
intent(in) :: qrule
7895 real(RKC) ,
intent(out) :: integral, abserr
7896 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7897 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7898 integer(IK) ,
intent(out) :: neval
7899 integer(IK) ,
intent(out) :: nint
7905 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7906#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7907 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7910 procedure(
real(RKC)) :: getFunc
7911 real(RKC) ,
intent(in) :: lb
7912 type(pinf_type) ,
intent(in) :: ub
7913 real(RKC) ,
intent(in) :: abstol
7914 real(RKC) ,
intent(in) :: reltol
7915 type(GK61_type) ,
intent(in) :: qrule
7916 real(RKC) ,
intent(out) :: integral, abserr
7917 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7918 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7919 integer(IK) ,
intent(out) :: neval
7920 integer(IK) ,
intent(out) :: nint
7926 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7931 procedure(
real(RKC)) :: getFunc
7932 real(RKC) ,
intent(in) :: lb
7933 type(pinf_type) ,
intent(in) :: ub
7934 real(RKC) ,
intent(in) :: abstol
7935 real(RKC) ,
intent(in) :: reltol
7936 type(GK61_type) ,
intent(in) :: qrule
7937 real(RKC) ,
intent(out) :: integral, abserr
7938 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7939 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7940 integer(IK) ,
intent(out) :: neval
7941 integer(IK) ,
intent(out) :: nint
7947 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7949 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
7952 procedure(
real(RKC)) :: getFunc
7953 real(RKC) ,
intent(in) :: lb
7954 type(pinf_type) ,
intent(in) :: ub
7955 real(RKC) ,
intent(in) :: abstol
7956 real(RKC) ,
intent(in) :: reltol
7957 type(GK61_type) ,
intent(in) :: qrule
7958 real(RKC) ,
intent(out) :: integral, abserr
7959 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7960 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7961 integer(IK) ,
intent(out) :: neval
7962 integer(IK) ,
intent(out) :: nint
7970 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
7975 procedure(
real(RKC)) :: getFunc
7976 type(ninf_type) ,
intent(in) :: lb
7977 real(RKC) ,
intent(in) :: ub
7978 real(RKC) ,
intent(in) :: abstol
7979 real(RKC) ,
intent(in) :: reltol
7980 type(GK61_type) ,
intent(in) :: qrule
7981 real(RKC) ,
intent(out) :: integral, abserr
7982 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
7983 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
7984 integer(IK) ,
intent(out) :: neval
7985 integer(IK) ,
intent(out) :: nint
7991 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
7992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7993 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
7996 procedure(
real(RKC)) :: getFunc
7997 type(ninf_type) ,
intent(in) :: lb
7998 real(RKC) ,
intent(in) :: ub
7999 real(RKC) ,
intent(in) :: abstol
8000 real(RKC) ,
intent(in) :: reltol
8001 type(GK61_type) ,
intent(in) :: qrule
8002 real(RKC) ,
intent(out) :: integral, abserr
8003 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8004 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8005 integer(IK) ,
intent(out) :: neval
8006 integer(IK) ,
intent(out) :: nint
8012 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8017 procedure(
real(RKC)) :: getFunc
8018 type(ninf_type) ,
intent(in) :: lb
8019 real(RKC) ,
intent(in) :: ub
8020 real(RKC) ,
intent(in) :: abstol
8021 real(RKC) ,
intent(in) :: reltol
8022 type(GK61_type) ,
intent(in) :: qrule
8023 real(RKC) ,
intent(out) :: integral, abserr
8024 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8025 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8026 integer(IK) ,
intent(out) :: neval
8027 integer(IK) ,
intent(out) :: nint
8033 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8034#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8035 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8038 procedure(
real(RKC)) :: getFunc
8039 type(ninf_type) ,
intent(in) :: lb
8040 real(RKC) ,
intent(in) :: ub
8041 real(RKC) ,
intent(in) :: abstol
8042 real(RKC) ,
intent(in) :: reltol
8043 type(GK61_type) ,
intent(in) :: qrule
8044 real(RKC) ,
intent(out) :: integral, abserr
8045 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8046 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8047 integer(IK) ,
intent(out) :: neval
8048 integer(IK) ,
intent(out) :: nint
8054 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8059 procedure(
real(RKC)) :: getFunc
8060 type(ninf_type) ,
intent(in) :: lb
8061 real(RKC) ,
intent(in) :: ub
8062 real(RKC) ,
intent(in) :: abstol
8063 real(RKC) ,
intent(in) :: reltol
8064 type(GK61_type) ,
intent(in) :: qrule
8065 real(RKC) ,
intent(out) :: integral, abserr
8066 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8067 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8068 integer(IK) ,
intent(out) :: neval
8069 integer(IK) ,
intent(out) :: nint
8077 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8082 procedure(
real(RKC)) :: getFunc
8083 type(ninf_type) ,
intent(in) :: lb
8084 type(pinf_type) ,
intent(in) :: ub
8085 real(RKC) ,
intent(in) :: abstol
8086 real(RKC) ,
intent(in) :: reltol
8087 type(GK61_type) ,
intent(in) :: qrule
8088 real(RKC) ,
intent(out) :: integral, abserr
8089 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8090 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8091 integer(IK) ,
intent(out) :: neval
8092 integer(IK) ,
intent(out) :: nint
8098 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8103 procedure(
real(RKC)) :: getFunc
8104 type(ninf_type) ,
intent(in) :: lb
8105 type(pinf_type) ,
intent(in) :: ub
8106 real(RKC) ,
intent(in) :: abstol
8107 real(RKC) ,
intent(in) :: reltol
8108 type(GK61_type) ,
intent(in) :: qrule
8109 real(RKC) ,
intent(out) :: integral, abserr
8110 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8111 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8112 integer(IK) ,
intent(out) :: neval
8113 integer(IK) ,
intent(out) :: nint
8119 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8121 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8124 procedure(
real(RKC)) :: getFunc
8125 type(ninf_type) ,
intent(in) :: lb
8126 type(pinf_type) ,
intent(in) :: ub
8127 real(RKC) ,
intent(in) :: abstol
8128 real(RKC) ,
intent(in) :: reltol
8129 type(GK61_type) ,
intent(in) :: qrule
8130 real(RKC) ,
intent(out) :: integral, abserr
8131 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8132 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8133 integer(IK) ,
intent(out) :: neval
8134 integer(IK) ,
intent(out) :: nint
8140 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8145 procedure(
real(RKC)) :: getFunc
8146 type(ninf_type) ,
intent(in) :: lb
8147 type(pinf_type) ,
intent(in) :: ub
8148 real(RKC) ,
intent(in) :: abstol
8149 real(RKC) ,
intent(in) :: reltol
8150 type(GK61_type) ,
intent(in) :: qrule
8151 real(RKC) ,
intent(out) :: integral, abserr
8152 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8153 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8154 integer(IK) ,
intent(out) :: neval
8155 integer(IK) ,
intent(out) :: nint
8161 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8163 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8166 procedure(
real(RKC)) :: getFunc
8167 type(ninf_type) ,
intent(in) :: lb
8168 type(pinf_type) ,
intent(in) :: ub
8169 real(RKC) ,
intent(in) :: abstol
8170 real(RKC) ,
intent(in) :: reltol
8171 type(GK61_type) ,
intent(in) :: qrule
8172 real(RKC) ,
intent(out) :: integral, abserr
8173 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8174 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8175 integer(IK) ,
intent(out) :: neval
8176 integer(IK) ,
intent(out) :: nint
8192 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8197 procedure(
real(RKC)) :: getFunc
8198 real(RKC) ,
intent(in) :: lb
8199 real(RKC) ,
intent(in) :: ub
8200 real(RKC) ,
intent(in) :: abstol
8201 real(RKC) ,
intent(in) :: reltol
8202 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8203 real(RKC) ,
intent(out) :: integral, abserr
8204 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8205 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8206 integer(IK) ,
intent(out) :: neval
8207 integer(IK) ,
intent(out) :: nint
8213 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8215 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8218 procedure(
real(RKC)) :: getFunc
8219 real(RKC) ,
intent(in) :: lb
8220 real(RKC) ,
intent(in) :: ub
8221 real(RKC) ,
intent(in) :: abstol
8222 real(RKC) ,
intent(in) :: reltol
8223 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8224 real(RKC) ,
intent(out) :: integral, abserr
8225 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8226 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8227 integer(IK) ,
intent(out) :: neval
8228 integer(IK) ,
intent(out) :: nint
8234 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8236 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8239 procedure(
real(RKC)) :: getFunc
8240 real(RKC) ,
intent(in) :: lb
8241 real(RKC) ,
intent(in) :: ub
8242 real(RKC) ,
intent(in) :: abstol
8243 real(RKC) ,
intent(in) :: reltol
8244 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8245 real(RKC) ,
intent(out) :: integral, abserr
8246 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8247 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8248 integer(IK) ,
intent(out) :: neval
8249 integer(IK) ,
intent(out) :: nint
8255 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8257 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8260 procedure(
real(RKC)) :: getFunc
8261 real(RKC) ,
intent(in) :: lb
8262 real(RKC) ,
intent(in) :: ub
8263 real(RKC) ,
intent(in) :: abstol
8264 real(RKC) ,
intent(in) :: reltol
8265 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8266 real(RKC) ,
intent(out) :: integral, abserr
8267 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8268 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8269 integer(IK) ,
intent(out) :: neval
8270 integer(IK) ,
intent(out) :: nint
8276 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8278 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8281 procedure(
real(RKC)) :: getFunc
8282 real(RKC) ,
intent(in) :: lb
8283 real(RKC) ,
intent(in) :: ub
8284 real(RKC) ,
intent(in) :: abstol
8285 real(RKC) ,
intent(in) :: reltol
8286 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8287 real(RKC) ,
intent(out) :: integral, abserr
8288 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8289 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8290 integer(IK) ,
intent(out) :: neval
8291 integer(IK) ,
intent(out) :: nint
8299 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8301 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8304 procedure(
real(RKC)) :: getFunc
8305 real(RKC) ,
intent(in) :: lb
8306 type(pinf_type) ,
intent(in) :: ub
8307 real(RKC) ,
intent(in) :: abstol
8308 real(RKC) ,
intent(in) :: reltol
8309 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8310 real(RKC) ,
intent(out) :: integral, abserr
8311 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8312 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8313 integer(IK) ,
intent(out) :: neval
8314 integer(IK) ,
intent(out) :: nint
8320 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8322 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8325 procedure(
real(RKC)) :: getFunc
8326 real(RKC) ,
intent(in) :: lb
8327 type(pinf_type) ,
intent(in) :: ub
8328 real(RKC) ,
intent(in) :: abstol
8329 real(RKC) ,
intent(in) :: reltol
8330 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8331 real(RKC) ,
intent(out) :: integral, abserr
8332 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8333 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8334 integer(IK) ,
intent(out) :: neval
8335 integer(IK) ,
intent(out) :: nint
8341 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8343 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8346 procedure(
real(RKC)) :: getFunc
8347 real(RKC) ,
intent(in) :: lb
8348 type(pinf_type) ,
intent(in) :: ub
8349 real(RKC) ,
intent(in) :: abstol
8350 real(RKC) ,
intent(in) :: reltol
8351 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8352 real(RKC) ,
intent(out) :: integral, abserr
8353 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8354 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8355 integer(IK) ,
intent(out) :: neval
8356 integer(IK) ,
intent(out) :: nint
8362 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8364 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8367 procedure(
real(RKC)) :: getFunc
8368 real(RKC) ,
intent(in) :: lb
8369 type(pinf_type) ,
intent(in) :: ub
8370 real(RKC) ,
intent(in) :: abstol
8371 real(RKC) ,
intent(in) :: reltol
8372 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8373 real(RKC) ,
intent(out) :: integral, abserr
8374 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8375 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8376 integer(IK) ,
intent(out) :: neval
8377 integer(IK) ,
intent(out) :: nint
8383 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8385 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8388 procedure(
real(RKC)) :: getFunc
8389 real(RKC) ,
intent(in) :: lb
8390 type(pinf_type) ,
intent(in) :: ub
8391 real(RKC) ,
intent(in) :: abstol
8392 real(RKC) ,
intent(in) :: reltol
8393 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8394 real(RKC) ,
intent(out) :: integral, abserr
8395 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8396 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8397 integer(IK) ,
intent(out) :: neval
8398 integer(IK) ,
intent(out) :: nint
8406 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8411 procedure(
real(RKC)) :: getFunc
8412 type(ninf_type) ,
intent(in) :: lb
8413 real(RKC) ,
intent(in) :: ub
8414 real(RKC) ,
intent(in) :: abstol
8415 real(RKC) ,
intent(in) :: reltol
8416 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8417 real(RKC) ,
intent(out) :: integral, abserr
8418 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8419 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8420 integer(IK) ,
intent(out) :: neval
8421 integer(IK) ,
intent(out) :: nint
8427 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8429 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8432 procedure(
real(RKC)) :: getFunc
8433 type(ninf_type) ,
intent(in) :: lb
8434 real(RKC) ,
intent(in) :: ub
8435 real(RKC) ,
intent(in) :: abstol
8436 real(RKC) ,
intent(in) :: reltol
8437 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8438 real(RKC) ,
intent(out) :: integral, abserr
8439 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8440 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8441 integer(IK) ,
intent(out) :: neval
8442 integer(IK) ,
intent(out) :: nint
8448 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8453 procedure(
real(RKC)) :: getFunc
8454 type(ninf_type) ,
intent(in) :: lb
8455 real(RKC) ,
intent(in) :: ub
8456 real(RKC) ,
intent(in) :: abstol
8457 real(RKC) ,
intent(in) :: reltol
8458 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8459 real(RKC) ,
intent(out) :: integral, abserr
8460 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8461 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8462 integer(IK) ,
intent(out) :: neval
8463 integer(IK) ,
intent(out) :: nint
8469 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8470#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8471 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8474 procedure(
real(RKC)) :: getFunc
8475 type(ninf_type) ,
intent(in) :: lb
8476 real(RKC) ,
intent(in) :: ub
8477 real(RKC) ,
intent(in) :: abstol
8478 real(RKC) ,
intent(in) :: reltol
8479 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8480 real(RKC) ,
intent(out) :: integral, abserr
8481 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8482 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8483 integer(IK) ,
intent(out) :: neval
8484 integer(IK) ,
intent(out) :: nint
8490 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8495 procedure(
real(RKC)) :: getFunc
8496 type(ninf_type) ,
intent(in) :: lb
8497 real(RKC) ,
intent(in) :: ub
8498 real(RKC) ,
intent(in) :: abstol
8499 real(RKC) ,
intent(in) :: reltol
8500 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8501 real(RKC) ,
intent(out) :: integral, abserr
8502 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8503 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8504 integer(IK) ,
intent(out) :: neval
8505 integer(IK) ,
intent(out) :: nint
8513 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8518 procedure(
real(RKC)) :: getFunc
8519 type(ninf_type) ,
intent(in) :: lb
8520 type(pinf_type) ,
intent(in) :: ub
8521 real(RKC) ,
intent(in) :: abstol
8522 real(RKC) ,
intent(in) :: reltol
8523 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8524 real(RKC) ,
intent(out) :: integral, abserr
8525 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8526 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8527 integer(IK) ,
intent(out) :: neval
8528 integer(IK) ,
intent(out) :: nint
8534 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8539 procedure(
real(RKC)) :: getFunc
8540 type(ninf_type) ,
intent(in) :: lb
8541 type(pinf_type) ,
intent(in) :: ub
8542 real(RKC) ,
intent(in) :: abstol
8543 real(RKC) ,
intent(in) :: reltol
8544 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8545 real(RKC) ,
intent(out) :: integral, abserr
8546 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8547 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8548 integer(IK) ,
intent(out) :: neval
8549 integer(IK) ,
intent(out) :: nint
8555 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8556#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8557 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8560 procedure(
real(RKC)) :: getFunc
8561 type(ninf_type) ,
intent(in) :: lb
8562 type(pinf_type) ,
intent(in) :: ub
8563 real(RKC) ,
intent(in) :: abstol
8564 real(RKC) ,
intent(in) :: reltol
8565 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8566 real(RKC) ,
intent(out) :: integral, abserr
8567 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8568 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8569 integer(IK) ,
intent(out) :: neval
8570 integer(IK) ,
intent(out) :: nint
8576 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8581 procedure(
real(RKC)) :: getFunc
8582 type(ninf_type) ,
intent(in) :: lb
8583 type(pinf_type) ,
intent(in) :: ub
8584 real(RKC) ,
intent(in) :: abstol
8585 real(RKC) ,
intent(in) :: reltol
8586 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8587 real(RKC) ,
intent(out) :: integral, abserr
8588 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8589 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8590 integer(IK) ,
intent(out) :: neval
8591 integer(IK) ,
intent(out) :: nint
8597 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8599 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8602 procedure(
real(RKC)) :: getFunc
8603 type(ninf_type) ,
intent(in) :: lb
8604 type(pinf_type) ,
intent(in) :: ub
8605 real(RKC) ,
intent(in) :: abstol
8606 real(RKC) ,
intent(in) :: reltol
8607 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
8608 real(RKC) ,
intent(out) :: integral, abserr
8609 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8610 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8611 integer(IK) ,
intent(out) :: neval
8612 integer(IK) ,
intent(out) :: nint
8630 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8635 procedure(
real(RKC)) :: getFunc
8636 real(RKC) ,
intent(in) :: lb
8637 real(RKC) ,
intent(in) :: ub
8638 real(RKC) ,
intent(in) :: abstol
8639 real(RKC) ,
intent(in) :: reltol
8640 type(GK15_type) ,
intent(in) :: qrule
8641 type(weps_type) ,
intent(in) :: help
8642 real(RKC) ,
intent(out) :: integral, abserr
8643 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8644 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8645 integer(IK) ,
intent(out) :: neval
8646 integer(IK) ,
intent(out) :: nint
8652 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8654 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8657 procedure(
real(RKC)) :: getFunc
8658 real(RKC) ,
intent(in) :: lb
8659 real(RKC) ,
intent(in) :: ub
8660 real(RKC) ,
intent(in) :: abstol
8661 real(RKC) ,
intent(in) :: reltol
8662 type(GK15_type) ,
intent(in) :: qrule
8663 type(weps_type) ,
intent(in) :: help
8664 real(RKC) ,
intent(out) :: integral, abserr
8665 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8666 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8667 integer(IK) ,
intent(out) :: neval
8668 integer(IK) ,
intent(out) :: nint
8674 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8679 procedure(
real(RKC)) :: getFunc
8680 real(RKC) ,
intent(in) :: lb
8681 real(RKC) ,
intent(in) :: ub
8682 real(RKC) ,
intent(in) :: abstol
8683 real(RKC) ,
intent(in) :: reltol
8684 type(GK15_type) ,
intent(in) :: qrule
8685 type(weps_type) ,
intent(in) :: help
8686 real(RKC) ,
intent(out) :: integral, abserr
8687 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8688 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8689 integer(IK) ,
intent(out) :: neval
8690 integer(IK) ,
intent(out) :: nint
8696 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8701 procedure(
real(RKC)) :: getFunc
8702 real(RKC) ,
intent(in) :: lb
8703 real(RKC) ,
intent(in) :: ub
8704 real(RKC) ,
intent(in) :: abstol
8705 real(RKC) ,
intent(in) :: reltol
8706 type(GK15_type) ,
intent(in) :: qrule
8707 type(weps_type) ,
intent(in) :: help
8708 real(RKC) ,
intent(out) :: integral, abserr
8709 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8710 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8711 integer(IK) ,
intent(out) :: neval
8712 integer(IK) ,
intent(out) :: nint
8718 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8723 procedure(
real(RKC)) :: getFunc
8724 real(RKC) ,
intent(in) :: lb
8725 real(RKC) ,
intent(in) :: ub
8726 real(RKC) ,
intent(in) :: abstol
8727 real(RKC) ,
intent(in) :: reltol
8728 type(GK15_type) ,
intent(in) :: qrule
8729 type(weps_type) ,
intent(in) :: help
8730 real(RKC) ,
intent(out) :: integral, abserr
8731 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8732 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8733 integer(IK) ,
intent(out) :: neval
8734 integer(IK) ,
intent(out) :: nint
8742 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8747 procedure(
real(RKC)) :: getFunc
8748 real(RKC) ,
intent(in) :: lb
8749 type(pinf_type) ,
intent(in) :: ub
8750 real(RKC) ,
intent(in) :: abstol
8751 real(RKC) ,
intent(in) :: reltol
8752 type(GK15_type) ,
intent(in) :: qrule
8753 type(weps_type) ,
intent(in) :: help
8754 real(RKC) ,
intent(out) :: integral, abserr
8755 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8756 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8757 integer(IK) ,
intent(out) :: neval
8758 integer(IK) ,
intent(out) :: nint
8764 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8766 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8769 procedure(
real(RKC)) :: getFunc
8770 real(RKC) ,
intent(in) :: lb
8771 type(pinf_type) ,
intent(in) :: ub
8772 real(RKC) ,
intent(in) :: abstol
8773 real(RKC) ,
intent(in) :: reltol
8774 type(GK15_type) ,
intent(in) :: qrule
8775 type(weps_type) ,
intent(in) :: help
8776 real(RKC) ,
intent(out) :: integral, abserr
8777 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8778 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8779 integer(IK) ,
intent(out) :: neval
8780 integer(IK) ,
intent(out) :: nint
8786 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8791 procedure(
real(RKC)) :: getFunc
8792 real(RKC) ,
intent(in) :: lb
8793 type(pinf_type) ,
intent(in) :: ub
8794 real(RKC) ,
intent(in) :: abstol
8795 real(RKC) ,
intent(in) :: reltol
8796 type(GK15_type) ,
intent(in) :: qrule
8797 type(weps_type) ,
intent(in) :: help
8798 real(RKC) ,
intent(out) :: integral, abserr
8799 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8800 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8801 integer(IK) ,
intent(out) :: neval
8802 integer(IK) ,
intent(out) :: nint
8808 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8813 procedure(
real(RKC)) :: getFunc
8814 real(RKC) ,
intent(in) :: lb
8815 type(pinf_type) ,
intent(in) :: ub
8816 real(RKC) ,
intent(in) :: abstol
8817 real(RKC) ,
intent(in) :: reltol
8818 type(GK15_type) ,
intent(in) :: qrule
8819 type(weps_type) ,
intent(in) :: help
8820 real(RKC) ,
intent(out) :: integral, abserr
8821 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8822 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8823 integer(IK) ,
intent(out) :: neval
8824 integer(IK) ,
intent(out) :: nint
8830 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8835 procedure(
real(RKC)) :: getFunc
8836 real(RKC) ,
intent(in) :: lb
8837 type(pinf_type) ,
intent(in) :: ub
8838 real(RKC) ,
intent(in) :: abstol
8839 real(RKC) ,
intent(in) :: reltol
8840 type(GK15_type) ,
intent(in) :: qrule
8841 type(weps_type) ,
intent(in) :: help
8842 real(RKC) ,
intent(out) :: integral, abserr
8843 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8844 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8845 integer(IK) ,
intent(out) :: neval
8846 integer(IK) ,
intent(out) :: nint
8854 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8859 procedure(
real(RKC)) :: getFunc
8860 type(ninf_type) ,
intent(in) :: lb
8861 real(RKC) ,
intent(in) :: ub
8862 real(RKC) ,
intent(in) :: abstol
8863 real(RKC) ,
intent(in) :: reltol
8864 type(GK15_type) ,
intent(in) :: qrule
8865 type(weps_type) ,
intent(in) :: help
8866 real(RKC) ,
intent(out) :: integral, abserr
8867 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8868 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8869 integer(IK) ,
intent(out) :: neval
8870 integer(IK) ,
intent(out) :: nint
8876 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8881 procedure(
real(RKC)) :: getFunc
8882 type(ninf_type) ,
intent(in) :: lb
8883 real(RKC) ,
intent(in) :: ub
8884 real(RKC) ,
intent(in) :: abstol
8885 real(RKC) ,
intent(in) :: reltol
8886 type(GK15_type) ,
intent(in) :: qrule
8887 type(weps_type) ,
intent(in) :: help
8888 real(RKC) ,
intent(out) :: integral, abserr
8889 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8890 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8891 integer(IK) ,
intent(out) :: neval
8892 integer(IK) ,
intent(out) :: nint
8898 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8903 procedure(
real(RKC)) :: getFunc
8904 type(ninf_type) ,
intent(in) :: lb
8905 real(RKC) ,
intent(in) :: ub
8906 real(RKC) ,
intent(in) :: abstol
8907 real(RKC) ,
intent(in) :: reltol
8908 type(GK15_type) ,
intent(in) :: qrule
8909 type(weps_type) ,
intent(in) :: help
8910 real(RKC) ,
intent(out) :: integral, abserr
8911 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8912 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8913 integer(IK) ,
intent(out) :: neval
8914 integer(IK) ,
intent(out) :: nint
8920 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8925 procedure(
real(RKC)) :: getFunc
8926 type(ninf_type) ,
intent(in) :: lb
8927 real(RKC) ,
intent(in) :: ub
8928 real(RKC) ,
intent(in) :: abstol
8929 real(RKC) ,
intent(in) :: reltol
8930 type(GK15_type) ,
intent(in) :: qrule
8931 type(weps_type) ,
intent(in) :: help
8932 real(RKC) ,
intent(out) :: integral, abserr
8933 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8934 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8935 integer(IK) ,
intent(out) :: neval
8936 integer(IK) ,
intent(out) :: nint
8942 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
8947 procedure(
real(RKC)) :: getFunc
8948 type(ninf_type) ,
intent(in) :: lb
8949 real(RKC) ,
intent(in) :: ub
8950 real(RKC) ,
intent(in) :: abstol
8951 real(RKC) ,
intent(in) :: reltol
8952 type(GK15_type) ,
intent(in) :: qrule
8953 type(weps_type) ,
intent(in) :: help
8954 real(RKC) ,
intent(out) :: integral, abserr
8955 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8956 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8957 integer(IK) ,
intent(out) :: neval
8958 integer(IK) ,
intent(out) :: nint
8966 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
8971 procedure(
real(RKC)) :: getFunc
8972 type(ninf_type) ,
intent(in) :: lb
8973 type(pinf_type) ,
intent(in) :: ub
8974 real(RKC) ,
intent(in) :: abstol
8975 real(RKC) ,
intent(in) :: reltol
8976 type(GK15_type) ,
intent(in) :: qrule
8977 type(weps_type) ,
intent(in) :: help
8978 real(RKC) ,
intent(out) :: integral, abserr
8979 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
8980 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
8981 integer(IK) ,
intent(out) :: neval
8982 integer(IK) ,
intent(out) :: nint
8988 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
8989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
8993 procedure(
real(RKC)) :: getFunc
8994 type(ninf_type) ,
intent(in) :: lb
8995 type(pinf_type) ,
intent(in) :: ub
8996 real(RKC) ,
intent(in) :: abstol
8997 real(RKC) ,
intent(in) :: reltol
8998 type(GK15_type) ,
intent(in) :: qrule
8999 type(weps_type) ,
intent(in) :: help
9000 real(RKC) ,
intent(out) :: integral, abserr
9001 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9002 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9003 integer(IK) ,
intent(out) :: neval
9004 integer(IK) ,
intent(out) :: nint
9010 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9012 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9015 procedure(
real(RKC)) :: getFunc
9016 type(ninf_type) ,
intent(in) :: lb
9017 type(pinf_type) ,
intent(in) :: ub
9018 real(RKC) ,
intent(in) :: abstol
9019 real(RKC) ,
intent(in) :: reltol
9020 type(GK15_type) ,
intent(in) :: qrule
9021 type(weps_type) ,
intent(in) :: help
9022 real(RKC) ,
intent(out) :: integral, abserr
9023 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9024 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9025 integer(IK) ,
intent(out) :: neval
9026 integer(IK) ,
intent(out) :: nint
9032 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9037 procedure(
real(RKC)) :: getFunc
9038 type(ninf_type) ,
intent(in) :: lb
9039 type(pinf_type) ,
intent(in) :: ub
9040 real(RKC) ,
intent(in) :: abstol
9041 real(RKC) ,
intent(in) :: reltol
9042 type(GK15_type) ,
intent(in) :: qrule
9043 type(weps_type) ,
intent(in) :: help
9044 real(RKC) ,
intent(out) :: integral, abserr
9045 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9046 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9047 integer(IK) ,
intent(out) :: neval
9048 integer(IK) ,
intent(out) :: nint
9054 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9059 procedure(
real(RKC)) :: getFunc
9060 type(ninf_type) ,
intent(in) :: lb
9061 type(pinf_type) ,
intent(in) :: ub
9062 real(RKC) ,
intent(in) :: abstol
9063 real(RKC) ,
intent(in) :: reltol
9064 type(GK15_type) ,
intent(in) :: qrule
9065 type(weps_type) ,
intent(in) :: help
9066 real(RKC) ,
intent(out) :: integral, abserr
9067 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9068 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9069 integer(IK) ,
intent(out) :: neval
9070 integer(IK) ,
intent(out) :: nint
9086 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9088 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9091 procedure(
real(RKC)) :: getFunc
9092 real(RKC) ,
intent(in) :: lb
9093 real(RKC) ,
intent(in) :: ub
9094 real(RKC) ,
intent(in) :: abstol
9095 real(RKC) ,
intent(in) :: reltol
9096 type(GK21_type) ,
intent(in) :: qrule
9097 type(weps_type) ,
intent(in) :: help
9098 real(RKC) ,
intent(out) :: integral, abserr
9099 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9100 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9101 integer(IK) ,
intent(out) :: neval
9102 integer(IK) ,
intent(out) :: nint
9108 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9110 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9113 procedure(
real(RKC)) :: getFunc
9114 real(RKC) ,
intent(in) :: lb
9115 real(RKC) ,
intent(in) :: ub
9116 real(RKC) ,
intent(in) :: abstol
9117 real(RKC) ,
intent(in) :: reltol
9118 type(GK21_type) ,
intent(in) :: qrule
9119 type(weps_type) ,
intent(in) :: help
9120 real(RKC) ,
intent(out) :: integral, abserr
9121 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9122 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9123 integer(IK) ,
intent(out) :: neval
9124 integer(IK) ,
intent(out) :: nint
9130 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9132 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9135 procedure(
real(RKC)) :: getFunc
9136 real(RKC) ,
intent(in) :: lb
9137 real(RKC) ,
intent(in) :: ub
9138 real(RKC) ,
intent(in) :: abstol
9139 real(RKC) ,
intent(in) :: reltol
9140 type(GK21_type) ,
intent(in) :: qrule
9141 type(weps_type) ,
intent(in) :: help
9142 real(RKC) ,
intent(out) :: integral, abserr
9143 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9144 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9145 integer(IK) ,
intent(out) :: neval
9146 integer(IK) ,
intent(out) :: nint
9152 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9154 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9157 procedure(
real(RKC)) :: getFunc
9158 real(RKC) ,
intent(in) :: lb
9159 real(RKC) ,
intent(in) :: ub
9160 real(RKC) ,
intent(in) :: abstol
9161 real(RKC) ,
intent(in) :: reltol
9162 type(GK21_type) ,
intent(in) :: qrule
9163 type(weps_type) ,
intent(in) :: help
9164 real(RKC) ,
intent(out) :: integral, abserr
9165 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9166 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9167 integer(IK) ,
intent(out) :: neval
9168 integer(IK) ,
intent(out) :: nint
9174 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9176 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9179 procedure(
real(RKC)) :: getFunc
9180 real(RKC) ,
intent(in) :: lb
9181 real(RKC) ,
intent(in) :: ub
9182 real(RKC) ,
intent(in) :: abstol
9183 real(RKC) ,
intent(in) :: reltol
9184 type(GK21_type) ,
intent(in) :: qrule
9185 type(weps_type) ,
intent(in) :: help
9186 real(RKC) ,
intent(out) :: integral, abserr
9187 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9188 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9189 integer(IK) ,
intent(out) :: neval
9190 integer(IK) ,
intent(out) :: nint
9198 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9200 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9203 procedure(
real(RKC)) :: getFunc
9204 real(RKC) ,
intent(in) :: lb
9205 type(pinf_type) ,
intent(in) :: ub
9206 real(RKC) ,
intent(in) :: abstol
9207 real(RKC) ,
intent(in) :: reltol
9208 type(GK21_type) ,
intent(in) :: qrule
9209 type(weps_type) ,
intent(in) :: help
9210 real(RKC) ,
intent(out) :: integral, abserr
9211 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9212 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9213 integer(IK) ,
intent(out) :: neval
9214 integer(IK) ,
intent(out) :: nint
9220 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9222 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9225 procedure(
real(RKC)) :: getFunc
9226 real(RKC) ,
intent(in) :: lb
9227 type(pinf_type) ,
intent(in) :: ub
9228 real(RKC) ,
intent(in) :: abstol
9229 real(RKC) ,
intent(in) :: reltol
9230 type(GK21_type) ,
intent(in) :: qrule
9231 type(weps_type) ,
intent(in) :: help
9232 real(RKC) ,
intent(out) :: integral, abserr
9233 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9234 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9235 integer(IK) ,
intent(out) :: neval
9236 integer(IK) ,
intent(out) :: nint
9242 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9244 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9247 procedure(
real(RKC)) :: getFunc
9248 real(RKC) ,
intent(in) :: lb
9249 type(pinf_type) ,
intent(in) :: ub
9250 real(RKC) ,
intent(in) :: abstol
9251 real(RKC) ,
intent(in) :: reltol
9252 type(GK21_type) ,
intent(in) :: qrule
9253 type(weps_type) ,
intent(in) :: help
9254 real(RKC) ,
intent(out) :: integral, abserr
9255 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9256 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9257 integer(IK) ,
intent(out) :: neval
9258 integer(IK) ,
intent(out) :: nint
9264 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9266 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9269 procedure(
real(RKC)) :: getFunc
9270 real(RKC) ,
intent(in) :: lb
9271 type(pinf_type) ,
intent(in) :: ub
9272 real(RKC) ,
intent(in) :: abstol
9273 real(RKC) ,
intent(in) :: reltol
9274 type(GK21_type) ,
intent(in) :: qrule
9275 type(weps_type) ,
intent(in) :: help
9276 real(RKC) ,
intent(out) :: integral, abserr
9277 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9278 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9279 integer(IK) ,
intent(out) :: neval
9280 integer(IK) ,
intent(out) :: nint
9286 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9288 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9291 procedure(
real(RKC)) :: getFunc
9292 real(RKC) ,
intent(in) :: lb
9293 type(pinf_type) ,
intent(in) :: ub
9294 real(RKC) ,
intent(in) :: abstol
9295 real(RKC) ,
intent(in) :: reltol
9296 type(GK21_type) ,
intent(in) :: qrule
9297 type(weps_type) ,
intent(in) :: help
9298 real(RKC) ,
intent(out) :: integral, abserr
9299 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9300 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9301 integer(IK) ,
intent(out) :: neval
9302 integer(IK) ,
intent(out) :: nint
9310 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9315 procedure(
real(RKC)) :: getFunc
9316 type(ninf_type) ,
intent(in) :: lb
9317 real(RKC) ,
intent(in) :: ub
9318 real(RKC) ,
intent(in) :: abstol
9319 real(RKC) ,
intent(in) :: reltol
9320 type(GK21_type) ,
intent(in) :: qrule
9321 type(weps_type) ,
intent(in) :: help
9322 real(RKC) ,
intent(out) :: integral, abserr
9323 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9324 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9325 integer(IK) ,
intent(out) :: neval
9326 integer(IK) ,
intent(out) :: nint
9332 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9334 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9337 procedure(
real(RKC)) :: getFunc
9338 type(ninf_type) ,
intent(in) :: lb
9339 real(RKC) ,
intent(in) :: ub
9340 real(RKC) ,
intent(in) :: abstol
9341 real(RKC) ,
intent(in) :: reltol
9342 type(GK21_type) ,
intent(in) :: qrule
9343 type(weps_type) ,
intent(in) :: help
9344 real(RKC) ,
intent(out) :: integral, abserr
9345 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9346 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9347 integer(IK) ,
intent(out) :: neval
9348 integer(IK) ,
intent(out) :: nint
9354 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9356 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9359 procedure(
real(RKC)) :: getFunc
9360 type(ninf_type) ,
intent(in) :: lb
9361 real(RKC) ,
intent(in) :: ub
9362 real(RKC) ,
intent(in) :: abstol
9363 real(RKC) ,
intent(in) :: reltol
9364 type(GK21_type) ,
intent(in) :: qrule
9365 type(weps_type) ,
intent(in) :: help
9366 real(RKC) ,
intent(out) :: integral, abserr
9367 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9368 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9369 integer(IK) ,
intent(out) :: neval
9370 integer(IK) ,
intent(out) :: nint
9376 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9378 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9381 procedure(
real(RKC)) :: getFunc
9382 type(ninf_type) ,
intent(in) :: lb
9383 real(RKC) ,
intent(in) :: ub
9384 real(RKC) ,
intent(in) :: abstol
9385 real(RKC) ,
intent(in) :: reltol
9386 type(GK21_type) ,
intent(in) :: qrule
9387 type(weps_type) ,
intent(in) :: help
9388 real(RKC) ,
intent(out) :: integral, abserr
9389 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9390 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9391 integer(IK) ,
intent(out) :: neval
9392 integer(IK) ,
intent(out) :: nint
9398 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9403 procedure(
real(RKC)) :: getFunc
9404 type(ninf_type) ,
intent(in) :: lb
9405 real(RKC) ,
intent(in) :: ub
9406 real(RKC) ,
intent(in) :: abstol
9407 real(RKC) ,
intent(in) :: reltol
9408 type(GK21_type) ,
intent(in) :: qrule
9409 type(weps_type) ,
intent(in) :: help
9410 real(RKC) ,
intent(out) :: integral, abserr
9411 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9412 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9413 integer(IK) ,
intent(out) :: neval
9414 integer(IK) ,
intent(out) :: nint
9422 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9424 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9427 procedure(
real(RKC)) :: getFunc
9428 type(ninf_type) ,
intent(in) :: lb
9429 type(pinf_type) ,
intent(in) :: ub
9430 real(RKC) ,
intent(in) :: abstol
9431 real(RKC) ,
intent(in) :: reltol
9432 type(GK21_type) ,
intent(in) :: qrule
9433 type(weps_type) ,
intent(in) :: help
9434 real(RKC) ,
intent(out) :: integral, abserr
9435 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9436 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9437 integer(IK) ,
intent(out) :: neval
9438 integer(IK) ,
intent(out) :: nint
9444 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9446 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9449 procedure(
real(RKC)) :: getFunc
9450 type(ninf_type) ,
intent(in) :: lb
9451 type(pinf_type) ,
intent(in) :: ub
9452 real(RKC) ,
intent(in) :: abstol
9453 real(RKC) ,
intent(in) :: reltol
9454 type(GK21_type) ,
intent(in) :: qrule
9455 type(weps_type) ,
intent(in) :: help
9456 real(RKC) ,
intent(out) :: integral, abserr
9457 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9458 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9459 integer(IK) ,
intent(out) :: neval
9460 integer(IK) ,
intent(out) :: nint
9466 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9468 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9471 procedure(
real(RKC)) :: getFunc
9472 type(ninf_type) ,
intent(in) :: lb
9473 type(pinf_type) ,
intent(in) :: ub
9474 real(RKC) ,
intent(in) :: abstol
9475 real(RKC) ,
intent(in) :: reltol
9476 type(GK21_type) ,
intent(in) :: qrule
9477 type(weps_type) ,
intent(in) :: help
9478 real(RKC) ,
intent(out) :: integral, abserr
9479 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9480 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9481 integer(IK) ,
intent(out) :: neval
9482 integer(IK) ,
intent(out) :: nint
9488 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9490 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9493 procedure(
real(RKC)) :: getFunc
9494 type(ninf_type) ,
intent(in) :: lb
9495 type(pinf_type) ,
intent(in) :: ub
9496 real(RKC) ,
intent(in) :: abstol
9497 real(RKC) ,
intent(in) :: reltol
9498 type(GK21_type) ,
intent(in) :: qrule
9499 type(weps_type) ,
intent(in) :: help
9500 real(RKC) ,
intent(out) :: integral, abserr
9501 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9502 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9503 integer(IK) ,
intent(out) :: neval
9504 integer(IK) ,
intent(out) :: nint
9510 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9512 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9515 procedure(
real(RKC)) :: getFunc
9516 type(ninf_type) ,
intent(in) :: lb
9517 type(pinf_type) ,
intent(in) :: ub
9518 real(RKC) ,
intent(in) :: abstol
9519 real(RKC) ,
intent(in) :: reltol
9520 type(GK21_type) ,
intent(in) :: qrule
9521 type(weps_type) ,
intent(in) :: help
9522 real(RKC) ,
intent(out) :: integral, abserr
9523 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9524 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9525 integer(IK) ,
intent(out) :: neval
9526 integer(IK) ,
intent(out) :: nint
9542 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9544 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9547 procedure(
real(RKC)) :: getFunc
9548 real(RKC) ,
intent(in) :: lb
9549 real(RKC) ,
intent(in) :: ub
9550 real(RKC) ,
intent(in) :: abstol
9551 real(RKC) ,
intent(in) :: reltol
9552 type(GK31_type) ,
intent(in) :: qrule
9553 type(weps_type) ,
intent(in) :: help
9554 real(RKC) ,
intent(out) :: integral, abserr
9555 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9556 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9557 integer(IK) ,
intent(out) :: neval
9558 integer(IK) ,
intent(out) :: nint
9564 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9566 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9569 procedure(
real(RKC)) :: getFunc
9570 real(RKC) ,
intent(in) :: lb
9571 real(RKC) ,
intent(in) :: ub
9572 real(RKC) ,
intent(in) :: abstol
9573 real(RKC) ,
intent(in) :: reltol
9574 type(GK31_type) ,
intent(in) :: qrule
9575 type(weps_type) ,
intent(in) :: help
9576 real(RKC) ,
intent(out) :: integral, abserr
9577 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9578 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9579 integer(IK) ,
intent(out) :: neval
9580 integer(IK) ,
intent(out) :: nint
9586 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9588 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9591 procedure(
real(RKC)) :: getFunc
9592 real(RKC) ,
intent(in) :: lb
9593 real(RKC) ,
intent(in) :: ub
9594 real(RKC) ,
intent(in) :: abstol
9595 real(RKC) ,
intent(in) :: reltol
9596 type(GK31_type) ,
intent(in) :: qrule
9597 type(weps_type) ,
intent(in) :: help
9598 real(RKC) ,
intent(out) :: integral, abserr
9599 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9600 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9601 integer(IK) ,
intent(out) :: neval
9602 integer(IK) ,
intent(out) :: nint
9608 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9610 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9613 procedure(
real(RKC)) :: getFunc
9614 real(RKC) ,
intent(in) :: lb
9615 real(RKC) ,
intent(in) :: ub
9616 real(RKC) ,
intent(in) :: abstol
9617 real(RKC) ,
intent(in) :: reltol
9618 type(GK31_type) ,
intent(in) :: qrule
9619 type(weps_type) ,
intent(in) :: help
9620 real(RKC) ,
intent(out) :: integral, abserr
9621 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9622 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9623 integer(IK) ,
intent(out) :: neval
9624 integer(IK) ,
intent(out) :: nint
9630 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9635 procedure(
real(RKC)) :: getFunc
9636 real(RKC) ,
intent(in) :: lb
9637 real(RKC) ,
intent(in) :: ub
9638 real(RKC) ,
intent(in) :: abstol
9639 real(RKC) ,
intent(in) :: reltol
9640 type(GK31_type) ,
intent(in) :: qrule
9641 type(weps_type) ,
intent(in) :: help
9642 real(RKC) ,
intent(out) :: integral, abserr
9643 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9644 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9645 integer(IK) ,
intent(out) :: neval
9646 integer(IK) ,
intent(out) :: nint
9654 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9659 procedure(
real(RKC)) :: getFunc
9660 real(RKC) ,
intent(in) :: lb
9661 type(pinf_type) ,
intent(in) :: ub
9662 real(RKC) ,
intent(in) :: abstol
9663 real(RKC) ,
intent(in) :: reltol
9664 type(GK31_type) ,
intent(in) :: qrule
9665 type(weps_type) ,
intent(in) :: help
9666 real(RKC) ,
intent(out) :: integral, abserr
9667 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9668 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9669 integer(IK) ,
intent(out) :: neval
9670 integer(IK) ,
intent(out) :: nint
9676 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9678 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9681 procedure(
real(RKC)) :: getFunc
9682 real(RKC) ,
intent(in) :: lb
9683 type(pinf_type) ,
intent(in) :: ub
9684 real(RKC) ,
intent(in) :: abstol
9685 real(RKC) ,
intent(in) :: reltol
9686 type(GK31_type) ,
intent(in) :: qrule
9687 type(weps_type) ,
intent(in) :: help
9688 real(RKC) ,
intent(out) :: integral, abserr
9689 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9690 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9691 integer(IK) ,
intent(out) :: neval
9692 integer(IK) ,
intent(out) :: nint
9698 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9700 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9703 procedure(
real(RKC)) :: getFunc
9704 real(RKC) ,
intent(in) :: lb
9705 type(pinf_type) ,
intent(in) :: ub
9706 real(RKC) ,
intent(in) :: abstol
9707 real(RKC) ,
intent(in) :: reltol
9708 type(GK31_type) ,
intent(in) :: qrule
9709 type(weps_type) ,
intent(in) :: help
9710 real(RKC) ,
intent(out) :: integral, abserr
9711 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9712 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9713 integer(IK) ,
intent(out) :: neval
9714 integer(IK) ,
intent(out) :: nint
9720 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9725 procedure(
real(RKC)) :: getFunc
9726 real(RKC) ,
intent(in) :: lb
9727 type(pinf_type) ,
intent(in) :: ub
9728 real(RKC) ,
intent(in) :: abstol
9729 real(RKC) ,
intent(in) :: reltol
9730 type(GK31_type) ,
intent(in) :: qrule
9731 type(weps_type) ,
intent(in) :: help
9732 real(RKC) ,
intent(out) :: integral, abserr
9733 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9734 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9735 integer(IK) ,
intent(out) :: neval
9736 integer(IK) ,
intent(out) :: nint
9742 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9747 procedure(
real(RKC)) :: getFunc
9748 real(RKC) ,
intent(in) :: lb
9749 type(pinf_type) ,
intent(in) :: ub
9750 real(RKC) ,
intent(in) :: abstol
9751 real(RKC) ,
intent(in) :: reltol
9752 type(GK31_type) ,
intent(in) :: qrule
9753 type(weps_type) ,
intent(in) :: help
9754 real(RKC) ,
intent(out) :: integral, abserr
9755 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9756 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9757 integer(IK) ,
intent(out) :: neval
9758 integer(IK) ,
intent(out) :: nint
9766 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9771 procedure(
real(RKC)) :: getFunc
9772 type(ninf_type) ,
intent(in) :: lb
9773 real(RKC) ,
intent(in) :: ub
9774 real(RKC) ,
intent(in) :: abstol
9775 real(RKC) ,
intent(in) :: reltol
9776 type(GK31_type) ,
intent(in) :: qrule
9777 type(weps_type) ,
intent(in) :: help
9778 real(RKC) ,
intent(out) :: integral, abserr
9779 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9780 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9781 integer(IK) ,
intent(out) :: neval
9782 integer(IK) ,
intent(out) :: nint
9788 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9793 procedure(
real(RKC)) :: getFunc
9794 type(ninf_type) ,
intent(in) :: lb
9795 real(RKC) ,
intent(in) :: ub
9796 real(RKC) ,
intent(in) :: abstol
9797 real(RKC) ,
intent(in) :: reltol
9798 type(GK31_type) ,
intent(in) :: qrule
9799 type(weps_type) ,
intent(in) :: help
9800 real(RKC) ,
intent(out) :: integral, abserr
9801 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9802 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9803 integer(IK) ,
intent(out) :: neval
9804 integer(IK) ,
intent(out) :: nint
9810 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9812 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9815 procedure(
real(RKC)) :: getFunc
9816 type(ninf_type) ,
intent(in) :: lb
9817 real(RKC) ,
intent(in) :: ub
9818 real(RKC) ,
intent(in) :: abstol
9819 real(RKC) ,
intent(in) :: reltol
9820 type(GK31_type) ,
intent(in) :: qrule
9821 type(weps_type) ,
intent(in) :: help
9822 real(RKC) ,
intent(out) :: integral, abserr
9823 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9824 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9825 integer(IK) ,
intent(out) :: neval
9826 integer(IK) ,
intent(out) :: nint
9832 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9837 procedure(
real(RKC)) :: getFunc
9838 type(ninf_type) ,
intent(in) :: lb
9839 real(RKC) ,
intent(in) :: ub
9840 real(RKC) ,
intent(in) :: abstol
9841 real(RKC) ,
intent(in) :: reltol
9842 type(GK31_type) ,
intent(in) :: qrule
9843 type(weps_type) ,
intent(in) :: help
9844 real(RKC) ,
intent(out) :: integral, abserr
9845 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9846 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9847 integer(IK) ,
intent(out) :: neval
9848 integer(IK) ,
intent(out) :: nint
9854 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9859 procedure(
real(RKC)) :: getFunc
9860 type(ninf_type) ,
intent(in) :: lb
9861 real(RKC) ,
intent(in) :: ub
9862 real(RKC) ,
intent(in) :: abstol
9863 real(RKC) ,
intent(in) :: reltol
9864 type(GK31_type) ,
intent(in) :: qrule
9865 type(weps_type) ,
intent(in) :: help
9866 real(RKC) ,
intent(out) :: integral, abserr
9867 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9868 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9869 integer(IK) ,
intent(out) :: neval
9870 integer(IK) ,
intent(out) :: nint
9878 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9883 procedure(
real(RKC)) :: getFunc
9884 type(ninf_type) ,
intent(in) :: lb
9885 type(pinf_type) ,
intent(in) :: ub
9886 real(RKC) ,
intent(in) :: abstol
9887 real(RKC) ,
intent(in) :: reltol
9888 type(GK31_type) ,
intent(in) :: qrule
9889 type(weps_type) ,
intent(in) :: help
9890 real(RKC) ,
intent(out) :: integral, abserr
9891 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9892 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9893 integer(IK) ,
intent(out) :: neval
9894 integer(IK) ,
intent(out) :: nint
9900 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9905 procedure(
real(RKC)) :: getFunc
9906 type(ninf_type) ,
intent(in) :: lb
9907 type(pinf_type) ,
intent(in) :: ub
9908 real(RKC) ,
intent(in) :: abstol
9909 real(RKC) ,
intent(in) :: reltol
9910 type(GK31_type) ,
intent(in) :: qrule
9911 type(weps_type) ,
intent(in) :: help
9912 real(RKC) ,
intent(out) :: integral, abserr
9913 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9914 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9915 integer(IK) ,
intent(out) :: neval
9916 integer(IK) ,
intent(out) :: nint
9922 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9924 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9927 procedure(
real(RKC)) :: getFunc
9928 type(ninf_type) ,
intent(in) :: lb
9929 type(pinf_type) ,
intent(in) :: ub
9930 real(RKC) ,
intent(in) :: abstol
9931 real(RKC) ,
intent(in) :: reltol
9932 type(GK31_type) ,
intent(in) :: qrule
9933 type(weps_type) ,
intent(in) :: help
9934 real(RKC) ,
intent(out) :: integral, abserr
9935 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9936 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9937 integer(IK) ,
intent(out) :: neval
9938 integer(IK) ,
intent(out) :: nint
9944 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
9949 procedure(
real(RKC)) :: getFunc
9950 type(ninf_type) ,
intent(in) :: lb
9951 type(pinf_type) ,
intent(in) :: ub
9952 real(RKC) ,
intent(in) :: abstol
9953 real(RKC) ,
intent(in) :: reltol
9954 type(GK31_type) ,
intent(in) :: qrule
9955 type(weps_type) ,
intent(in) :: help
9956 real(RKC) ,
intent(out) :: integral, abserr
9957 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9958 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9959 integer(IK) ,
intent(out) :: neval
9960 integer(IK) ,
intent(out) :: nint
9966 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
9971 procedure(
real(RKC)) :: getFunc
9972 type(ninf_type) ,
intent(in) :: lb
9973 type(pinf_type) ,
intent(in) :: ub
9974 real(RKC) ,
intent(in) :: abstol
9975 real(RKC) ,
intent(in) :: reltol
9976 type(GK31_type) ,
intent(in) :: qrule
9977 type(weps_type) ,
intent(in) :: help
9978 real(RKC) ,
intent(out) :: integral, abserr
9979 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
9980 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
9981 integer(IK) ,
intent(out) :: neval
9982 integer(IK) ,
intent(out) :: nint
9998 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
9999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10003 procedure(
real(RKC)) :: getFunc
10004 real(RKC) ,
intent(in) :: lb
10005 real(RKC) ,
intent(in) :: ub
10006 real(RKC) ,
intent(in) :: abstol
10007 real(RKC) ,
intent(in) :: reltol
10008 type(GK41_type) ,
intent(in) :: qrule
10009 type(weps_type) ,
intent(in) :: help
10010 real(RKC) ,
intent(out) :: integral, abserr
10011 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10012 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10013 integer(IK) ,
intent(out) :: neval
10014 integer(IK) ,
intent(out) :: nint
10020 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10022 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10025 procedure(
real(RKC)) :: getFunc
10026 real(RKC) ,
intent(in) :: lb
10027 real(RKC) ,
intent(in) :: ub
10028 real(RKC) ,
intent(in) :: abstol
10029 real(RKC) ,
intent(in) :: reltol
10030 type(GK41_type) ,
intent(in) :: qrule
10031 type(weps_type) ,
intent(in) :: help
10032 real(RKC) ,
intent(out) :: integral, abserr
10033 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10034 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10035 integer(IK) ,
intent(out) :: neval
10036 integer(IK) ,
intent(out) :: nint
10042 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10044 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10047 procedure(
real(RKC)) :: getFunc
10048 real(RKC) ,
intent(in) :: lb
10049 real(RKC) ,
intent(in) :: ub
10050 real(RKC) ,
intent(in) :: abstol
10051 real(RKC) ,
intent(in) :: reltol
10052 type(GK41_type) ,
intent(in) :: qrule
10053 type(weps_type) ,
intent(in) :: help
10054 real(RKC) ,
intent(out) :: integral, abserr
10055 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10056 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10057 integer(IK) ,
intent(out) :: neval
10058 integer(IK) ,
intent(out) :: nint
10064 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10066 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10069 procedure(
real(RKC)) :: getFunc
10070 real(RKC) ,
intent(in) :: lb
10071 real(RKC) ,
intent(in) :: ub
10072 real(RKC) ,
intent(in) :: abstol
10073 real(RKC) ,
intent(in) :: reltol
10074 type(GK41_type) ,
intent(in) :: qrule
10075 type(weps_type) ,
intent(in) :: help
10076 real(RKC) ,
intent(out) :: integral, abserr
10077 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10078 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10079 integer(IK) ,
intent(out) :: neval
10080 integer(IK) ,
intent(out) :: nint
10086 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10088 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10091 procedure(
real(RKC)) :: getFunc
10092 real(RKC) ,
intent(in) :: lb
10093 real(RKC) ,
intent(in) :: ub
10094 real(RKC) ,
intent(in) :: abstol
10095 real(RKC) ,
intent(in) :: reltol
10096 type(GK41_type) ,
intent(in) :: qrule
10097 type(weps_type) ,
intent(in) :: help
10098 real(RKC) ,
intent(out) :: integral, abserr
10099 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10100 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10101 integer(IK) ,
intent(out) :: neval
10102 integer(IK) ,
intent(out) :: nint
10110 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10115 procedure(
real(RKC)) :: getFunc
10116 real(RKC) ,
intent(in) :: lb
10117 type(pinf_type) ,
intent(in) :: ub
10118 real(RKC) ,
intent(in) :: abstol
10119 real(RKC) ,
intent(in) :: reltol
10120 type(GK41_type) ,
intent(in) :: qrule
10121 type(weps_type) ,
intent(in) :: help
10122 real(RKC) ,
intent(out) :: integral, abserr
10123 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10124 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10125 integer(IK) ,
intent(out) :: neval
10126 integer(IK) ,
intent(out) :: nint
10132 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10134 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10137 procedure(
real(RKC)) :: getFunc
10138 real(RKC) ,
intent(in) :: lb
10139 type(pinf_type) ,
intent(in) :: ub
10140 real(RKC) ,
intent(in) :: abstol
10141 real(RKC) ,
intent(in) :: reltol
10142 type(GK41_type) ,
intent(in) :: qrule
10143 type(weps_type) ,
intent(in) :: help
10144 real(RKC) ,
intent(out) :: integral, abserr
10145 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10146 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10147 integer(IK) ,
intent(out) :: neval
10148 integer(IK) ,
intent(out) :: nint
10154 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10156 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10159 procedure(
real(RKC)) :: getFunc
10160 real(RKC) ,
intent(in) :: lb
10161 type(pinf_type) ,
intent(in) :: ub
10162 real(RKC) ,
intent(in) :: abstol
10163 real(RKC) ,
intent(in) :: reltol
10164 type(GK41_type) ,
intent(in) :: qrule
10165 type(weps_type) ,
intent(in) :: help
10166 real(RKC) ,
intent(out) :: integral, abserr
10167 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10168 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10169 integer(IK) ,
intent(out) :: neval
10170 integer(IK) ,
intent(out) :: nint
10176 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10178 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10181 procedure(
real(RKC)) :: getFunc
10182 real(RKC) ,
intent(in) :: lb
10183 type(pinf_type) ,
intent(in) :: ub
10184 real(RKC) ,
intent(in) :: abstol
10185 real(RKC) ,
intent(in) :: reltol
10186 type(GK41_type) ,
intent(in) :: qrule
10187 type(weps_type) ,
intent(in) :: help
10188 real(RKC) ,
intent(out) :: integral, abserr
10189 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10190 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10191 integer(IK) ,
intent(out) :: neval
10192 integer(IK) ,
intent(out) :: nint
10198 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10200 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10203 procedure(
real(RKC)) :: getFunc
10204 real(RKC) ,
intent(in) :: lb
10205 type(pinf_type) ,
intent(in) :: ub
10206 real(RKC) ,
intent(in) :: abstol
10207 real(RKC) ,
intent(in) :: reltol
10208 type(GK41_type) ,
intent(in) :: qrule
10209 type(weps_type) ,
intent(in) :: help
10210 real(RKC) ,
intent(out) :: integral, abserr
10211 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10212 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10213 integer(IK) ,
intent(out) :: neval
10214 integer(IK) ,
intent(out) :: nint
10222 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10227 procedure(
real(RKC)) :: getFunc
10228 type(ninf_type) ,
intent(in) :: lb
10229 real(RKC) ,
intent(in) :: ub
10230 real(RKC) ,
intent(in) :: abstol
10231 real(RKC) ,
intent(in) :: reltol
10232 type(GK41_type) ,
intent(in) :: qrule
10233 type(weps_type) ,
intent(in) :: help
10234 real(RKC) ,
intent(out) :: integral, abserr
10235 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10236 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10237 integer(IK) ,
intent(out) :: neval
10238 integer(IK) ,
intent(out) :: nint
10244 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10249 procedure(
real(RKC)) :: getFunc
10250 type(ninf_type) ,
intent(in) :: lb
10251 real(RKC) ,
intent(in) :: ub
10252 real(RKC) ,
intent(in) :: abstol
10253 real(RKC) ,
intent(in) :: reltol
10254 type(GK41_type) ,
intent(in) :: qrule
10255 type(weps_type) ,
intent(in) :: help
10256 real(RKC) ,
intent(out) :: integral, abserr
10257 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10258 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10259 integer(IK) ,
intent(out) :: neval
10260 integer(IK) ,
intent(out) :: nint
10266 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10268 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10271 procedure(
real(RKC)) :: getFunc
10272 type(ninf_type) ,
intent(in) :: lb
10273 real(RKC) ,
intent(in) :: ub
10274 real(RKC) ,
intent(in) :: abstol
10275 real(RKC) ,
intent(in) :: reltol
10276 type(GK41_type) ,
intent(in) :: qrule
10277 type(weps_type) ,
intent(in) :: help
10278 real(RKC) ,
intent(out) :: integral, abserr
10279 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10280 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10281 integer(IK) ,
intent(out) :: neval
10282 integer(IK) ,
intent(out) :: nint
10288 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10290 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10293 procedure(
real(RKC)) :: getFunc
10294 type(ninf_type) ,
intent(in) :: lb
10295 real(RKC) ,
intent(in) :: ub
10296 real(RKC) ,
intent(in) :: abstol
10297 real(RKC) ,
intent(in) :: reltol
10298 type(GK41_type) ,
intent(in) :: qrule
10299 type(weps_type) ,
intent(in) :: help
10300 real(RKC) ,
intent(out) :: integral, abserr
10301 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10302 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10303 integer(IK) ,
intent(out) :: neval
10304 integer(IK) ,
intent(out) :: nint
10310 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10312 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10315 procedure(
real(RKC)) :: getFunc
10316 type(ninf_type) ,
intent(in) :: lb
10317 real(RKC) ,
intent(in) :: ub
10318 real(RKC) ,
intent(in) :: abstol
10319 real(RKC) ,
intent(in) :: reltol
10320 type(GK41_type) ,
intent(in) :: qrule
10321 type(weps_type) ,
intent(in) :: help
10322 real(RKC) ,
intent(out) :: integral, abserr
10323 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10324 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10325 integer(IK) ,
intent(out) :: neval
10326 integer(IK) ,
intent(out) :: nint
10334 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10339 procedure(
real(RKC)) :: getFunc
10340 type(ninf_type) ,
intent(in) :: lb
10341 type(pinf_type) ,
intent(in) :: ub
10342 real(RKC) ,
intent(in) :: abstol
10343 real(RKC) ,
intent(in) :: reltol
10344 type(GK41_type) ,
intent(in) :: qrule
10345 type(weps_type) ,
intent(in) :: help
10346 real(RKC) ,
intent(out) :: integral, abserr
10347 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10348 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10349 integer(IK) ,
intent(out) :: neval
10350 integer(IK) ,
intent(out) :: nint
10356 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10361 procedure(
real(RKC)) :: getFunc
10362 type(ninf_type) ,
intent(in) :: lb
10363 type(pinf_type) ,
intent(in) :: ub
10364 real(RKC) ,
intent(in) :: abstol
10365 real(RKC) ,
intent(in) :: reltol
10366 type(GK41_type) ,
intent(in) :: qrule
10367 type(weps_type) ,
intent(in) :: help
10368 real(RKC) ,
intent(out) :: integral, abserr
10369 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10370 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10371 integer(IK) ,
intent(out) :: neval
10372 integer(IK) ,
intent(out) :: nint
10378 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10380 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10383 procedure(
real(RKC)) :: getFunc
10384 type(ninf_type) ,
intent(in) :: lb
10385 type(pinf_type) ,
intent(in) :: ub
10386 real(RKC) ,
intent(in) :: abstol
10387 real(RKC) ,
intent(in) :: reltol
10388 type(GK41_type) ,
intent(in) :: qrule
10389 type(weps_type) ,
intent(in) :: help
10390 real(RKC) ,
intent(out) :: integral, abserr
10391 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10392 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10393 integer(IK) ,
intent(out) :: neval
10394 integer(IK) ,
intent(out) :: nint
10400 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10402 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10405 procedure(
real(RKC)) :: getFunc
10406 type(ninf_type) ,
intent(in) :: lb
10407 type(pinf_type) ,
intent(in) :: ub
10408 real(RKC) ,
intent(in) :: abstol
10409 real(RKC) ,
intent(in) :: reltol
10410 type(GK41_type) ,
intent(in) :: qrule
10411 type(weps_type) ,
intent(in) :: help
10412 real(RKC) ,
intent(out) :: integral, abserr
10413 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10414 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10415 integer(IK) ,
intent(out) :: neval
10416 integer(IK) ,
intent(out) :: nint
10422 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10424 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10427 procedure(
real(RKC)) :: getFunc
10428 type(ninf_type) ,
intent(in) :: lb
10429 type(pinf_type) ,
intent(in) :: ub
10430 real(RKC) ,
intent(in) :: abstol
10431 real(RKC) ,
intent(in) :: reltol
10432 type(GK41_type) ,
intent(in) :: qrule
10433 type(weps_type) ,
intent(in) :: help
10434 real(RKC) ,
intent(out) :: integral, abserr
10435 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10436 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10437 integer(IK) ,
intent(out) :: neval
10438 integer(IK) ,
intent(out) :: nint
10454 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10456 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10459 procedure(
real(RKC)) :: getFunc
10460 real(RKC) ,
intent(in) :: lb
10461 real(RKC) ,
intent(in) :: ub
10462 real(RKC) ,
intent(in) :: abstol
10463 real(RKC) ,
intent(in) :: reltol
10464 type(GK51_type) ,
intent(in) :: qrule
10465 type(weps_type) ,
intent(in) :: help
10466 real(RKC) ,
intent(out) :: integral, abserr
10467 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10468 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10469 integer(IK) ,
intent(out) :: neval
10470 integer(IK) ,
intent(out) :: nint
10476 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10478 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10481 procedure(
real(RKC)) :: getFunc
10482 real(RKC) ,
intent(in) :: lb
10483 real(RKC) ,
intent(in) :: ub
10484 real(RKC) ,
intent(in) :: abstol
10485 real(RKC) ,
intent(in) :: reltol
10486 type(GK51_type) ,
intent(in) :: qrule
10487 type(weps_type) ,
intent(in) :: help
10488 real(RKC) ,
intent(out) :: integral, abserr
10489 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10490 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10491 integer(IK) ,
intent(out) :: neval
10492 integer(IK) ,
intent(out) :: nint
10498 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10500 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10503 procedure(
real(RKC)) :: getFunc
10504 real(RKC) ,
intent(in) :: lb
10505 real(RKC) ,
intent(in) :: ub
10506 real(RKC) ,
intent(in) :: abstol
10507 real(RKC) ,
intent(in) :: reltol
10508 type(GK51_type) ,
intent(in) :: qrule
10509 type(weps_type) ,
intent(in) :: help
10510 real(RKC) ,
intent(out) :: integral, abserr
10511 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10512 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10513 integer(IK) ,
intent(out) :: neval
10514 integer(IK) ,
intent(out) :: nint
10520 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10522 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10525 procedure(
real(RKC)) :: getFunc
10526 real(RKC) ,
intent(in) :: lb
10527 real(RKC) ,
intent(in) :: ub
10528 real(RKC) ,
intent(in) :: abstol
10529 real(RKC) ,
intent(in) :: reltol
10530 type(GK51_type) ,
intent(in) :: qrule
10531 type(weps_type) ,
intent(in) :: help
10532 real(RKC) ,
intent(out) :: integral, abserr
10533 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10534 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10535 integer(IK) ,
intent(out) :: neval
10536 integer(IK) ,
intent(out) :: nint
10542 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10544 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10547 procedure(
real(RKC)) :: getFunc
10548 real(RKC) ,
intent(in) :: lb
10549 real(RKC) ,
intent(in) :: ub
10550 real(RKC) ,
intent(in) :: abstol
10551 real(RKC) ,
intent(in) :: reltol
10552 type(GK51_type) ,
intent(in) :: qrule
10553 type(weps_type) ,
intent(in) :: help
10554 real(RKC) ,
intent(out) :: integral, abserr
10555 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10556 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10557 integer(IK) ,
intent(out) :: neval
10558 integer(IK) ,
intent(out) :: nint
10566 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10571 procedure(
real(RKC)) :: getFunc
10572 real(RKC) ,
intent(in) :: lb
10573 type(pinf_type) ,
intent(in) :: ub
10574 real(RKC) ,
intent(in) :: abstol
10575 real(RKC) ,
intent(in) :: reltol
10576 type(GK51_type) ,
intent(in) :: qrule
10577 type(weps_type) ,
intent(in) :: help
10578 real(RKC) ,
intent(out) :: integral, abserr
10579 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10580 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10581 integer(IK) ,
intent(out) :: neval
10582 integer(IK) ,
intent(out) :: nint
10588 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10590 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10593 procedure(
real(RKC)) :: getFunc
10594 real(RKC) ,
intent(in) :: lb
10595 type(pinf_type) ,
intent(in) :: ub
10596 real(RKC) ,
intent(in) :: abstol
10597 real(RKC) ,
intent(in) :: reltol
10598 type(GK51_type) ,
intent(in) :: qrule
10599 type(weps_type) ,
intent(in) :: help
10600 real(RKC) ,
intent(out) :: integral, abserr
10601 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10602 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10603 integer(IK) ,
intent(out) :: neval
10604 integer(IK) ,
intent(out) :: nint
10610 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10612 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10615 procedure(
real(RKC)) :: getFunc
10616 real(RKC) ,
intent(in) :: lb
10617 type(pinf_type) ,
intent(in) :: ub
10618 real(RKC) ,
intent(in) :: abstol
10619 real(RKC) ,
intent(in) :: reltol
10620 type(GK51_type) ,
intent(in) :: qrule
10621 type(weps_type) ,
intent(in) :: help
10622 real(RKC) ,
intent(out) :: integral, abserr
10623 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10624 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10625 integer(IK) ,
intent(out) :: neval
10626 integer(IK) ,
intent(out) :: nint
10632 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10637 procedure(
real(RKC)) :: getFunc
10638 real(RKC) ,
intent(in) :: lb
10639 type(pinf_type) ,
intent(in) :: ub
10640 real(RKC) ,
intent(in) :: abstol
10641 real(RKC) ,
intent(in) :: reltol
10642 type(GK51_type) ,
intent(in) :: qrule
10643 type(weps_type) ,
intent(in) :: help
10644 real(RKC) ,
intent(out) :: integral, abserr
10645 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10646 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10647 integer(IK) ,
intent(out) :: neval
10648 integer(IK) ,
intent(out) :: nint
10654 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10659 procedure(
real(RKC)) :: getFunc
10660 real(RKC) ,
intent(in) :: lb
10661 type(pinf_type) ,
intent(in) :: ub
10662 real(RKC) ,
intent(in) :: abstol
10663 real(RKC) ,
intent(in) :: reltol
10664 type(GK51_type) ,
intent(in) :: qrule
10665 type(weps_type) ,
intent(in) :: help
10666 real(RKC) ,
intent(out) :: integral, abserr
10667 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10668 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10669 integer(IK) ,
intent(out) :: neval
10670 integer(IK) ,
intent(out) :: nint
10678 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10683 procedure(
real(RKC)) :: getFunc
10684 type(ninf_type) ,
intent(in) :: lb
10685 real(RKC) ,
intent(in) :: ub
10686 real(RKC) ,
intent(in) :: abstol
10687 real(RKC) ,
intent(in) :: reltol
10688 type(GK51_type) ,
intent(in) :: qrule
10689 type(weps_type) ,
intent(in) :: help
10690 real(RKC) ,
intent(out) :: integral, abserr
10691 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10692 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10693 integer(IK) ,
intent(out) :: neval
10694 integer(IK) ,
intent(out) :: nint
10700 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10705 procedure(
real(RKC)) :: getFunc
10706 type(ninf_type) ,
intent(in) :: lb
10707 real(RKC) ,
intent(in) :: ub
10708 real(RKC) ,
intent(in) :: abstol
10709 real(RKC) ,
intent(in) :: reltol
10710 type(GK51_type) ,
intent(in) :: qrule
10711 type(weps_type) ,
intent(in) :: help
10712 real(RKC) ,
intent(out) :: integral, abserr
10713 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10714 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10715 integer(IK) ,
intent(out) :: neval
10716 integer(IK) ,
intent(out) :: nint
10722 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10727 procedure(
real(RKC)) :: getFunc
10728 type(ninf_type) ,
intent(in) :: lb
10729 real(RKC) ,
intent(in) :: ub
10730 real(RKC) ,
intent(in) :: abstol
10731 real(RKC) ,
intent(in) :: reltol
10732 type(GK51_type) ,
intent(in) :: qrule
10733 type(weps_type) ,
intent(in) :: help
10734 real(RKC) ,
intent(out) :: integral, abserr
10735 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10736 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10737 integer(IK) ,
intent(out) :: neval
10738 integer(IK) ,
intent(out) :: nint
10744 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10749 procedure(
real(RKC)) :: getFunc
10750 type(ninf_type) ,
intent(in) :: lb
10751 real(RKC) ,
intent(in) :: ub
10752 real(RKC) ,
intent(in) :: abstol
10753 real(RKC) ,
intent(in) :: reltol
10754 type(GK51_type) ,
intent(in) :: qrule
10755 type(weps_type) ,
intent(in) :: help
10756 real(RKC) ,
intent(out) :: integral, abserr
10757 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10758 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10759 integer(IK) ,
intent(out) :: neval
10760 integer(IK) ,
intent(out) :: nint
10766 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10771 procedure(
real(RKC)) :: getFunc
10772 type(ninf_type) ,
intent(in) :: lb
10773 real(RKC) ,
intent(in) :: ub
10774 real(RKC) ,
intent(in) :: abstol
10775 real(RKC) ,
intent(in) :: reltol
10776 type(GK51_type) ,
intent(in) :: qrule
10777 type(weps_type) ,
intent(in) :: help
10778 real(RKC) ,
intent(out) :: integral, abserr
10779 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10780 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10781 integer(IK) ,
intent(out) :: neval
10782 integer(IK) ,
intent(out) :: nint
10790 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10795 procedure(
real(RKC)) :: getFunc
10796 type(ninf_type) ,
intent(in) :: lb
10797 type(pinf_type) ,
intent(in) :: ub
10798 real(RKC) ,
intent(in) :: abstol
10799 real(RKC) ,
intent(in) :: reltol
10800 type(GK51_type) ,
intent(in) :: qrule
10801 type(weps_type) ,
intent(in) :: help
10802 real(RKC) ,
intent(out) :: integral, abserr
10803 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10804 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10805 integer(IK) ,
intent(out) :: neval
10806 integer(IK) ,
intent(out) :: nint
10812 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10817 procedure(
real(RKC)) :: getFunc
10818 type(ninf_type) ,
intent(in) :: lb
10819 type(pinf_type) ,
intent(in) :: ub
10820 real(RKC) ,
intent(in) :: abstol
10821 real(RKC) ,
intent(in) :: reltol
10822 type(GK51_type) ,
intent(in) :: qrule
10823 type(weps_type) ,
intent(in) :: help
10824 real(RKC) ,
intent(out) :: integral, abserr
10825 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10826 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10827 integer(IK) ,
intent(out) :: neval
10828 integer(IK) ,
intent(out) :: nint
10834 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10839 procedure(
real(RKC)) :: getFunc
10840 type(ninf_type) ,
intent(in) :: lb
10841 type(pinf_type) ,
intent(in) :: ub
10842 real(RKC) ,
intent(in) :: abstol
10843 real(RKC) ,
intent(in) :: reltol
10844 type(GK51_type) ,
intent(in) :: qrule
10845 type(weps_type) ,
intent(in) :: help
10846 real(RKC) ,
intent(out) :: integral, abserr
10847 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10848 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10849 integer(IK) ,
intent(out) :: neval
10850 integer(IK) ,
intent(out) :: nint
10856 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10861 procedure(
real(RKC)) :: getFunc
10862 type(ninf_type) ,
intent(in) :: lb
10863 type(pinf_type) ,
intent(in) :: ub
10864 real(RKC) ,
intent(in) :: abstol
10865 real(RKC) ,
intent(in) :: reltol
10866 type(GK51_type) ,
intent(in) :: qrule
10867 type(weps_type) ,
intent(in) :: help
10868 real(RKC) ,
intent(out) :: integral, abserr
10869 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10870 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10871 integer(IK) ,
intent(out) :: neval
10872 integer(IK) ,
intent(out) :: nint
10878 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10883 procedure(
real(RKC)) :: getFunc
10884 type(ninf_type) ,
intent(in) :: lb
10885 type(pinf_type) ,
intent(in) :: ub
10886 real(RKC) ,
intent(in) :: abstol
10887 real(RKC) ,
intent(in) :: reltol
10888 type(GK51_type) ,
intent(in) :: qrule
10889 type(weps_type) ,
intent(in) :: help
10890 real(RKC) ,
intent(out) :: integral, abserr
10891 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10892 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10893 integer(IK) ,
intent(out) :: neval
10894 integer(IK) ,
intent(out) :: nint
10910 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10912 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10915 procedure(
real(RKC)) :: getFunc
10916 real(RKC) ,
intent(in) :: lb
10917 real(RKC) ,
intent(in) :: ub
10918 real(RKC) ,
intent(in) :: abstol
10919 real(RKC) ,
intent(in) :: reltol
10920 type(GK61_type) ,
intent(in) :: qrule
10921 type(weps_type) ,
intent(in) :: help
10922 real(RKC) ,
intent(out) :: integral, abserr
10923 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10924 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10925 integer(IK) ,
intent(out) :: neval
10926 integer(IK) ,
intent(out) :: nint
10932 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10934 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
10937 procedure(
real(RKC)) :: getFunc
10938 real(RKC) ,
intent(in) :: lb
10939 real(RKC) ,
intent(in) :: ub
10940 real(RKC) ,
intent(in) :: abstol
10941 real(RKC) ,
intent(in) :: reltol
10942 type(GK61_type) ,
intent(in) :: qrule
10943 type(weps_type) ,
intent(in) :: help
10944 real(RKC) ,
intent(out) :: integral, abserr
10945 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10946 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10947 integer(IK) ,
intent(out) :: neval
10948 integer(IK) ,
intent(out) :: nint
10954 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10956 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
10959 procedure(
real(RKC)) :: getFunc
10960 real(RKC) ,
intent(in) :: lb
10961 real(RKC) ,
intent(in) :: ub
10962 real(RKC) ,
intent(in) :: abstol
10963 real(RKC) ,
intent(in) :: reltol
10964 type(GK61_type) ,
intent(in) :: qrule
10965 type(weps_type) ,
intent(in) :: help
10966 real(RKC) ,
intent(out) :: integral, abserr
10967 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10968 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10969 integer(IK) ,
intent(out) :: neval
10970 integer(IK) ,
intent(out) :: nint
10976 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10978 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
10981 procedure(
real(RKC)) :: getFunc
10982 real(RKC) ,
intent(in) :: lb
10983 real(RKC) ,
intent(in) :: ub
10984 real(RKC) ,
intent(in) :: abstol
10985 real(RKC) ,
intent(in) :: reltol
10986 type(GK61_type) ,
intent(in) :: qrule
10987 type(weps_type) ,
intent(in) :: help
10988 real(RKC) ,
intent(out) :: integral, abserr
10989 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
10990 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
10991 integer(IK) ,
intent(out) :: neval
10992 integer(IK) ,
intent(out) :: nint
10998 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
10999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11000 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11003 procedure(
real(RKC)) :: getFunc
11004 real(RKC) ,
intent(in) :: lb
11005 real(RKC) ,
intent(in) :: ub
11006 real(RKC) ,
intent(in) :: abstol
11007 real(RKC) ,
intent(in) :: reltol
11008 type(GK61_type) ,
intent(in) :: qrule
11009 type(weps_type) ,
intent(in) :: help
11010 real(RKC) ,
intent(out) :: integral, abserr
11011 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11012 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11013 integer(IK) ,
intent(out) :: neval
11014 integer(IK) ,
intent(out) :: nint
11022 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11024 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11027 procedure(
real(RKC)) :: getFunc
11028 real(RKC) ,
intent(in) :: lb
11029 type(pinf_type) ,
intent(in) :: ub
11030 real(RKC) ,
intent(in) :: abstol
11031 real(RKC) ,
intent(in) :: reltol
11032 type(GK61_type) ,
intent(in) :: qrule
11033 type(weps_type) ,
intent(in) :: help
11034 real(RKC) ,
intent(out) :: integral, abserr
11035 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11036 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11037 integer(IK) ,
intent(out) :: neval
11038 integer(IK) ,
intent(out) :: nint
11044 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11046 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11049 procedure(
real(RKC)) :: getFunc
11050 real(RKC) ,
intent(in) :: lb
11051 type(pinf_type) ,
intent(in) :: ub
11052 real(RKC) ,
intent(in) :: abstol
11053 real(RKC) ,
intent(in) :: reltol
11054 type(GK61_type) ,
intent(in) :: qrule
11055 type(weps_type) ,
intent(in) :: help
11056 real(RKC) ,
intent(out) :: integral, abserr
11057 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11058 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11059 integer(IK) ,
intent(out) :: neval
11060 integer(IK) ,
intent(out) :: nint
11066 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11068 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11071 procedure(
real(RKC)) :: getFunc
11072 real(RKC) ,
intent(in) :: lb
11073 type(pinf_type) ,
intent(in) :: ub
11074 real(RKC) ,
intent(in) :: abstol
11075 real(RKC) ,
intent(in) :: reltol
11076 type(GK61_type) ,
intent(in) :: qrule
11077 type(weps_type) ,
intent(in) :: help
11078 real(RKC) ,
intent(out) :: integral, abserr
11079 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11080 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11081 integer(IK) ,
intent(out) :: neval
11082 integer(IK) ,
intent(out) :: nint
11088 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11093 procedure(
real(RKC)) :: getFunc
11094 real(RKC) ,
intent(in) :: lb
11095 type(pinf_type) ,
intent(in) :: ub
11096 real(RKC) ,
intent(in) :: abstol
11097 real(RKC) ,
intent(in) :: reltol
11098 type(GK61_type) ,
intent(in) :: qrule
11099 type(weps_type) ,
intent(in) :: help
11100 real(RKC) ,
intent(out) :: integral, abserr
11101 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11102 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11103 integer(IK) ,
intent(out) :: neval
11104 integer(IK) ,
intent(out) :: nint
11110 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11115 procedure(
real(RKC)) :: getFunc
11116 real(RKC) ,
intent(in) :: lb
11117 type(pinf_type) ,
intent(in) :: ub
11118 real(RKC) ,
intent(in) :: abstol
11119 real(RKC) ,
intent(in) :: reltol
11120 type(GK61_type) ,
intent(in) :: qrule
11121 type(weps_type) ,
intent(in) :: help
11122 real(RKC) ,
intent(out) :: integral, abserr
11123 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11124 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11125 integer(IK) ,
intent(out) :: neval
11126 integer(IK) ,
intent(out) :: nint
11134 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11139 procedure(
real(RKC)) :: getFunc
11140 type(ninf_type) ,
intent(in) :: lb
11141 real(RKC) ,
intent(in) :: ub
11142 real(RKC) ,
intent(in) :: abstol
11143 real(RKC) ,
intent(in) :: reltol
11144 type(GK61_type) ,
intent(in) :: qrule
11145 type(weps_type) ,
intent(in) :: help
11146 real(RKC) ,
intent(out) :: integral, abserr
11147 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11148 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11149 integer(IK) ,
intent(out) :: neval
11150 integer(IK) ,
intent(out) :: nint
11156 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11161 procedure(
real(RKC)) :: getFunc
11162 type(ninf_type) ,
intent(in) :: lb
11163 real(RKC) ,
intent(in) :: ub
11164 real(RKC) ,
intent(in) :: abstol
11165 real(RKC) ,
intent(in) :: reltol
11166 type(GK61_type) ,
intent(in) :: qrule
11167 type(weps_type) ,
intent(in) :: help
11168 real(RKC) ,
intent(out) :: integral, abserr
11169 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11170 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11171 integer(IK) ,
intent(out) :: neval
11172 integer(IK) ,
intent(out) :: nint
11178 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11183 procedure(
real(RKC)) :: getFunc
11184 type(ninf_type) ,
intent(in) :: lb
11185 real(RKC) ,
intent(in) :: ub
11186 real(RKC) ,
intent(in) :: abstol
11187 real(RKC) ,
intent(in) :: reltol
11188 type(GK61_type) ,
intent(in) :: qrule
11189 type(weps_type) ,
intent(in) :: help
11190 real(RKC) ,
intent(out) :: integral, abserr
11191 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11192 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11193 integer(IK) ,
intent(out) :: neval
11194 integer(IK) ,
intent(out) :: nint
11200 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11205 procedure(
real(RKC)) :: getFunc
11206 type(ninf_type) ,
intent(in) :: lb
11207 real(RKC) ,
intent(in) :: ub
11208 real(RKC) ,
intent(in) :: abstol
11209 real(RKC) ,
intent(in) :: reltol
11210 type(GK61_type) ,
intent(in) :: qrule
11211 type(weps_type) ,
intent(in) :: help
11212 real(RKC) ,
intent(out) :: integral, abserr
11213 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11214 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11215 integer(IK) ,
intent(out) :: neval
11216 integer(IK) ,
intent(out) :: nint
11222 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11227 procedure(
real(RKC)) :: getFunc
11228 type(ninf_type) ,
intent(in) :: lb
11229 real(RKC) ,
intent(in) :: ub
11230 real(RKC) ,
intent(in) :: abstol
11231 real(RKC) ,
intent(in) :: reltol
11232 type(GK61_type) ,
intent(in) :: qrule
11233 type(weps_type) ,
intent(in) :: help
11234 real(RKC) ,
intent(out) :: integral, abserr
11235 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11236 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11237 integer(IK) ,
intent(out) :: neval
11238 integer(IK) ,
intent(out) :: nint
11246 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11251 procedure(
real(RKC)) :: getFunc
11252 type(ninf_type) ,
intent(in) :: lb
11253 type(pinf_type) ,
intent(in) :: ub
11254 real(RKC) ,
intent(in) :: abstol
11255 real(RKC) ,
intent(in) :: reltol
11256 type(GK61_type) ,
intent(in) :: qrule
11257 type(weps_type) ,
intent(in) :: help
11258 real(RKC) ,
intent(out) :: integral, abserr
11259 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11260 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11261 integer(IK) ,
intent(out) :: neval
11262 integer(IK) ,
intent(out) :: nint
11268 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11273 procedure(
real(RKC)) :: getFunc
11274 type(ninf_type) ,
intent(in) :: lb
11275 type(pinf_type) ,
intent(in) :: ub
11276 real(RKC) ,
intent(in) :: abstol
11277 real(RKC) ,
intent(in) :: reltol
11278 type(GK61_type) ,
intent(in) :: qrule
11279 type(weps_type) ,
intent(in) :: help
11280 real(RKC) ,
intent(out) :: integral, abserr
11281 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11282 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11283 integer(IK) ,
intent(out) :: neval
11284 integer(IK) ,
intent(out) :: nint
11290 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11295 procedure(
real(RKC)) :: getFunc
11296 type(ninf_type) ,
intent(in) :: lb
11297 type(pinf_type) ,
intent(in) :: ub
11298 real(RKC) ,
intent(in) :: abstol
11299 real(RKC) ,
intent(in) :: reltol
11300 type(GK61_type) ,
intent(in) :: qrule
11301 type(weps_type) ,
intent(in) :: help
11302 real(RKC) ,
intent(out) :: integral, abserr
11303 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11304 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11305 integer(IK) ,
intent(out) :: neval
11306 integer(IK) ,
intent(out) :: nint
11312 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11317 procedure(
real(RKC)) :: getFunc
11318 type(ninf_type) ,
intent(in) :: lb
11319 type(pinf_type) ,
intent(in) :: ub
11320 real(RKC) ,
intent(in) :: abstol
11321 real(RKC) ,
intent(in) :: reltol
11322 type(GK61_type) ,
intent(in) :: qrule
11323 type(weps_type) ,
intent(in) :: help
11324 real(RKC) ,
intent(out) :: integral, abserr
11325 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11326 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11327 integer(IK) ,
intent(out) :: neval
11328 integer(IK) ,
intent(out) :: nint
11334 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11339 procedure(
real(RKC)) :: getFunc
11340 type(ninf_type) ,
intent(in) :: lb
11341 type(pinf_type) ,
intent(in) :: ub
11342 real(RKC) ,
intent(in) :: abstol
11343 real(RKC) ,
intent(in) :: reltol
11344 type(GK61_type) ,
intent(in) :: qrule
11345 type(weps_type) ,
intent(in) :: help
11346 real(RKC) ,
intent(out) :: integral, abserr
11347 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11348 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11349 integer(IK) ,
intent(out) :: neval
11350 integer(IK) ,
intent(out) :: nint
11366 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11368 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11371 procedure(
real(RKC)) :: getFunc
11372 real(RKC) ,
intent(in) :: lb
11373 real(RKC) ,
intent(in) :: ub
11374 real(RKC) ,
intent(in) :: abstol
11375 real(RKC) ,
intent(in) :: reltol
11376 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11377 type(weps_type) ,
intent(in) :: help
11378 real(RKC) ,
intent(out) :: integral, abserr
11379 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11380 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11381 integer(IK) ,
intent(out) :: neval
11382 integer(IK) ,
intent(out) :: nint
11388 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11390 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11393 procedure(
real(RKC)) :: getFunc
11394 real(RKC) ,
intent(in) :: lb
11395 real(RKC) ,
intent(in) :: ub
11396 real(RKC) ,
intent(in) :: abstol
11397 real(RKC) ,
intent(in) :: reltol
11398 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11399 type(weps_type) ,
intent(in) :: help
11400 real(RKC) ,
intent(out) :: integral, abserr
11401 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11402 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11403 integer(IK) ,
intent(out) :: neval
11404 integer(IK) ,
intent(out) :: nint
11410 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11412 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11415 procedure(
real(RKC)) :: getFunc
11416 real(RKC) ,
intent(in) :: lb
11417 real(RKC) ,
intent(in) :: ub
11418 real(RKC) ,
intent(in) :: abstol
11419 real(RKC) ,
intent(in) :: reltol
11420 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11421 type(weps_type) ,
intent(in) :: help
11422 real(RKC) ,
intent(out) :: integral, abserr
11423 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11424 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11425 integer(IK) ,
intent(out) :: neval
11426 integer(IK) ,
intent(out) :: nint
11432 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11434 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11437 procedure(
real(RKC)) :: getFunc
11438 real(RKC) ,
intent(in) :: lb
11439 real(RKC) ,
intent(in) :: ub
11440 real(RKC) ,
intent(in) :: abstol
11441 real(RKC) ,
intent(in) :: reltol
11442 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11443 type(weps_type) ,
intent(in) :: help
11444 real(RKC) ,
intent(out) :: integral, abserr
11445 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11446 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11447 integer(IK) ,
intent(out) :: neval
11448 integer(IK) ,
intent(out) :: nint
11454 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11455#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11456 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11459 procedure(
real(RKC)) :: getFunc
11460 real(RKC) ,
intent(in) :: lb
11461 real(RKC) ,
intent(in) :: ub
11462 real(RKC) ,
intent(in) :: abstol
11463 real(RKC) ,
intent(in) :: reltol
11464 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11465 type(weps_type) ,
intent(in) :: help
11466 real(RKC) ,
intent(out) :: integral, abserr
11467 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11468 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11469 integer(IK) ,
intent(out) :: neval
11470 integer(IK) ,
intent(out) :: nint
11478 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11480 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11483 procedure(
real(RKC)) :: getFunc
11484 real(RKC) ,
intent(in) :: lb
11485 type(pinf_type) ,
intent(in) :: ub
11486 real(RKC) ,
intent(in) :: abstol
11487 real(RKC) ,
intent(in) :: reltol
11488 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11489 type(weps_type) ,
intent(in) :: help
11490 real(RKC) ,
intent(out) :: integral, abserr
11491 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11492 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11493 integer(IK) ,
intent(out) :: neval
11494 integer(IK) ,
intent(out) :: nint
11500 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11502 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11505 procedure(
real(RKC)) :: getFunc
11506 real(RKC) ,
intent(in) :: lb
11507 type(pinf_type) ,
intent(in) :: ub
11508 real(RKC) ,
intent(in) :: abstol
11509 real(RKC) ,
intent(in) :: reltol
11510 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11511 type(weps_type) ,
intent(in) :: help
11512 real(RKC) ,
intent(out) :: integral, abserr
11513 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11514 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11515 integer(IK) ,
intent(out) :: neval
11516 integer(IK) ,
intent(out) :: nint
11522 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11524 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11527 procedure(
real(RKC)) :: getFunc
11528 real(RKC) ,
intent(in) :: lb
11529 type(pinf_type) ,
intent(in) :: ub
11530 real(RKC) ,
intent(in) :: abstol
11531 real(RKC) ,
intent(in) :: reltol
11532 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11533 type(weps_type) ,
intent(in) :: help
11534 real(RKC) ,
intent(out) :: integral, abserr
11535 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11536 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11537 integer(IK) ,
intent(out) :: neval
11538 integer(IK) ,
intent(out) :: nint
11544 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11549 procedure(
real(RKC)) :: getFunc
11550 real(RKC) ,
intent(in) :: lb
11551 type(pinf_type) ,
intent(in) :: ub
11552 real(RKC) ,
intent(in) :: abstol
11553 real(RKC) ,
intent(in) :: reltol
11554 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11555 type(weps_type) ,
intent(in) :: help
11556 real(RKC) ,
intent(out) :: integral, abserr
11557 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11558 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11559 integer(IK) ,
intent(out) :: neval
11560 integer(IK) ,
intent(out) :: nint
11566 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11571 procedure(
real(RKC)) :: getFunc
11572 real(RKC) ,
intent(in) :: lb
11573 type(pinf_type) ,
intent(in) :: ub
11574 real(RKC) ,
intent(in) :: abstol
11575 real(RKC) ,
intent(in) :: reltol
11576 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11577 type(weps_type) ,
intent(in) :: help
11578 real(RKC) ,
intent(out) :: integral, abserr
11579 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11580 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11581 integer(IK) ,
intent(out) :: neval
11582 integer(IK) ,
intent(out) :: nint
11590 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11595 procedure(
real(RKC)) :: getFunc
11596 type(ninf_type) ,
intent(in) :: lb
11597 real(RKC) ,
intent(in) :: ub
11598 real(RKC) ,
intent(in) :: abstol
11599 real(RKC) ,
intent(in) :: reltol
11600 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11601 type(weps_type) ,
intent(in) :: help
11602 real(RKC) ,
intent(out) :: integral, abserr
11603 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11604 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11605 integer(IK) ,
intent(out) :: neval
11606 integer(IK) ,
intent(out) :: nint
11612 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11617 procedure(
real(RKC)) :: getFunc
11618 type(ninf_type) ,
intent(in) :: lb
11619 real(RKC) ,
intent(in) :: ub
11620 real(RKC) ,
intent(in) :: abstol
11621 real(RKC) ,
intent(in) :: reltol
11622 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11623 type(weps_type) ,
intent(in) :: help
11624 real(RKC) ,
intent(out) :: integral, abserr
11625 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11626 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11627 integer(IK) ,
intent(out) :: neval
11628 integer(IK) ,
intent(out) :: nint
11634 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11639 procedure(
real(RKC)) :: getFunc
11640 type(ninf_type) ,
intent(in) :: lb
11641 real(RKC) ,
intent(in) :: ub
11642 real(RKC) ,
intent(in) :: abstol
11643 real(RKC) ,
intent(in) :: reltol
11644 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11645 type(weps_type) ,
intent(in) :: help
11646 real(RKC) ,
intent(out) :: integral, abserr
11647 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11648 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11649 integer(IK) ,
intent(out) :: neval
11650 integer(IK) ,
intent(out) :: nint
11656 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11661 procedure(
real(RKC)) :: getFunc
11662 type(ninf_type) ,
intent(in) :: lb
11663 real(RKC) ,
intent(in) :: ub
11664 real(RKC) ,
intent(in) :: abstol
11665 real(RKC) ,
intent(in) :: reltol
11666 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11667 type(weps_type) ,
intent(in) :: help
11668 real(RKC) ,
intent(out) :: integral, abserr
11669 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11670 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11671 integer(IK) ,
intent(out) :: neval
11672 integer(IK) ,
intent(out) :: nint
11678 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11683 procedure(
real(RKC)) :: getFunc
11684 type(ninf_type) ,
intent(in) :: lb
11685 real(RKC) ,
intent(in) :: ub
11686 real(RKC) ,
intent(in) :: abstol
11687 real(RKC) ,
intent(in) :: reltol
11688 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11689 type(weps_type) ,
intent(in) :: help
11690 real(RKC) ,
intent(out) :: integral, abserr
11691 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11692 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11693 integer(IK) ,
intent(out) :: neval
11694 integer(IK) ,
intent(out) :: nint
11702 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11707 procedure(
real(RKC)) :: getFunc
11708 type(ninf_type) ,
intent(in) :: lb
11709 type(pinf_type) ,
intent(in) :: ub
11710 real(RKC) ,
intent(in) :: abstol
11711 real(RKC) ,
intent(in) :: reltol
11712 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11713 type(weps_type) ,
intent(in) :: help
11714 real(RKC) ,
intent(out) :: integral, abserr
11715 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11716 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11717 integer(IK) ,
intent(out) :: neval
11718 integer(IK) ,
intent(out) :: nint
11724 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11729 procedure(
real(RKC)) :: getFunc
11730 type(ninf_type) ,
intent(in) :: lb
11731 type(pinf_type) ,
intent(in) :: ub
11732 real(RKC) ,
intent(in) :: abstol
11733 real(RKC) ,
intent(in) :: reltol
11734 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11735 type(weps_type) ,
intent(in) :: help
11736 real(RKC) ,
intent(out) :: integral, abserr
11737 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11738 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11739 integer(IK) ,
intent(out) :: neval
11740 integer(IK) ,
intent(out) :: nint
11746 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11751 procedure(
real(RKC)) :: getFunc
11752 type(ninf_type) ,
intent(in) :: lb
11753 type(pinf_type) ,
intent(in) :: ub
11754 real(RKC) ,
intent(in) :: abstol
11755 real(RKC) ,
intent(in) :: reltol
11756 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11757 type(weps_type) ,
intent(in) :: help
11758 real(RKC) ,
intent(out) :: integral, abserr
11759 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11760 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11761 integer(IK) ,
intent(out) :: neval
11762 integer(IK) ,
intent(out) :: nint
11768 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11773 procedure(
real(RKC)) :: getFunc
11774 type(ninf_type) ,
intent(in) :: lb
11775 type(pinf_type) ,
intent(in) :: ub
11776 real(RKC) ,
intent(in) :: abstol
11777 real(RKC) ,
intent(in) :: reltol
11778 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11779 type(weps_type) ,
intent(in) :: help
11780 real(RKC) ,
intent(out) :: integral, abserr
11781 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11782 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11783 integer(IK) ,
intent(out) :: neval
11784 integer(IK) ,
intent(out) :: nint
11790 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11795 procedure(
real(RKC)) :: getFunc
11796 type(ninf_type) ,
intent(in) :: lb
11797 type(pinf_type) ,
intent(in) :: ub
11798 real(RKC) ,
intent(in) :: abstol
11799 real(RKC) ,
intent(in) :: reltol
11800 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
11801 type(weps_type) ,
intent(in) :: help
11802 real(RKC) ,
intent(out) :: integral, abserr
11803 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11804 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11805 integer(IK) ,
intent(out) :: neval
11806 integer(IK) ,
intent(out) :: nint
11824 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11826 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11829 procedure(
real(RKC)) :: getFunc
11830 real(RKC) ,
intent(in) :: lb
11831 real(RKC) ,
intent(in) :: ub
11832 real(RKC) ,
intent(in) :: abstol
11833 real(RKC) ,
intent(in) :: reltol
11834 type(GK15_type) ,
intent(in) :: qrule
11835 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11836 real(RKC) ,
intent(out) :: integral, abserr
11837 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11838 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11839 integer(IK) ,
intent(out) :: neval
11840 integer(IK) ,
intent(out) :: nint
11846 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11848 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11851 procedure(
real(RKC)) :: getFunc
11852 real(RKC) ,
intent(in) :: lb
11853 real(RKC) ,
intent(in) :: ub
11854 real(RKC) ,
intent(in) :: abstol
11855 real(RKC) ,
intent(in) :: reltol
11856 type(GK15_type) ,
intent(in) :: qrule
11857 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11858 real(RKC) ,
intent(out) :: integral, abserr
11859 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11860 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11861 integer(IK) ,
intent(out) :: neval
11862 integer(IK) ,
intent(out) :: nint
11868 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11870 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11873 procedure(
real(RKC)) :: getFunc
11874 real(RKC) ,
intent(in) :: lb
11875 real(RKC) ,
intent(in) :: ub
11876 real(RKC) ,
intent(in) :: abstol
11877 real(RKC) ,
intent(in) :: reltol
11878 type(GK15_type) ,
intent(in) :: qrule
11879 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11880 real(RKC) ,
intent(out) :: integral, abserr
11881 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11882 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11883 integer(IK) ,
intent(out) :: neval
11884 integer(IK) ,
intent(out) :: nint
11890 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11891#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11892 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11895 procedure(
real(RKC)) :: getFunc
11896 real(RKC) ,
intent(in) :: lb
11897 real(RKC) ,
intent(in) :: ub
11898 real(RKC) ,
intent(in) :: abstol
11899 real(RKC) ,
intent(in) :: reltol
11900 type(GK15_type) ,
intent(in) :: qrule
11901 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11902 real(RKC) ,
intent(out) :: integral, abserr
11903 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11904 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11905 integer(IK) ,
intent(out) :: neval
11906 integer(IK) ,
intent(out) :: nint
11912 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11914 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11917 procedure(
real(RKC)) :: getFunc
11918 real(RKC) ,
intent(in) :: lb
11919 real(RKC) ,
intent(in) :: ub
11920 real(RKC) ,
intent(in) :: abstol
11921 real(RKC) ,
intent(in) :: reltol
11922 type(GK15_type) ,
intent(in) :: qrule
11923 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11924 real(RKC) ,
intent(out) :: integral, abserr
11925 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11926 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11927 integer(IK) ,
intent(out) :: neval
11928 integer(IK) ,
intent(out) :: nint
11936 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11938 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
11941 procedure(
real(RKC)) :: getFunc
11942 real(RKC) ,
intent(in) :: lb
11943 type(pinf_type) ,
intent(in) :: ub
11944 real(RKC) ,
intent(in) :: abstol
11945 real(RKC) ,
intent(in) :: reltol
11946 type(GK15_type) ,
intent(in) :: qrule
11947 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11948 real(RKC) ,
intent(out) :: integral, abserr
11949 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11950 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11951 integer(IK) ,
intent(out) :: neval
11952 integer(IK) ,
intent(out) :: nint
11958 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11959#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11960 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
11963 procedure(
real(RKC)) :: getFunc
11964 real(RKC) ,
intent(in) :: lb
11965 type(pinf_type) ,
intent(in) :: ub
11966 real(RKC) ,
intent(in) :: abstol
11967 real(RKC) ,
intent(in) :: reltol
11968 type(GK15_type) ,
intent(in) :: qrule
11969 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11970 real(RKC) ,
intent(out) :: integral, abserr
11971 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11972 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11973 integer(IK) ,
intent(out) :: neval
11974 integer(IK) ,
intent(out) :: nint
11980 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
11981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11982 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
11985 procedure(
real(RKC)) :: getFunc
11986 real(RKC) ,
intent(in) :: lb
11987 type(pinf_type) ,
intent(in) :: ub
11988 real(RKC) ,
intent(in) :: abstol
11989 real(RKC) ,
intent(in) :: reltol
11990 type(GK15_type) ,
intent(in) :: qrule
11991 real(RKC) ,
intent(in) ,
contiguous :: help(:)
11992 real(RKC) ,
intent(out) :: integral, abserr
11993 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
11994 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
11995 integer(IK) ,
intent(out) :: neval
11996 integer(IK) ,
intent(out) :: nint
12002 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12004 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12007 procedure(
real(RKC)) :: getFunc
12008 real(RKC) ,
intent(in) :: lb
12009 type(pinf_type) ,
intent(in) :: ub
12010 real(RKC) ,
intent(in) :: abstol
12011 real(RKC) ,
intent(in) :: reltol
12012 type(GK15_type) ,
intent(in) :: qrule
12013 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12014 real(RKC) ,
intent(out) :: integral, abserr
12015 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12016 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12017 integer(IK) ,
intent(out) :: neval
12018 integer(IK) ,
intent(out) :: nint
12024 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12029 procedure(
real(RKC)) :: getFunc
12030 real(RKC) ,
intent(in) :: lb
12031 type(pinf_type) ,
intent(in) :: ub
12032 real(RKC) ,
intent(in) :: abstol
12033 real(RKC) ,
intent(in) :: reltol
12034 type(GK15_type) ,
intent(in) :: qrule
12035 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12036 real(RKC) ,
intent(out) :: integral, abserr
12037 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12038 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12039 integer(IK) ,
intent(out) :: neval
12040 integer(IK) ,
intent(out) :: nint
12048 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12050 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12053 procedure(
real(RKC)) :: getFunc
12054 type(ninf_type) ,
intent(in) :: lb
12055 real(RKC) ,
intent(in) :: ub
12056 real(RKC) ,
intent(in) :: abstol
12057 real(RKC) ,
intent(in) :: reltol
12058 type(GK15_type) ,
intent(in) :: qrule
12059 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12060 real(RKC) ,
intent(out) :: integral, abserr
12061 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12062 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12063 integer(IK) ,
intent(out) :: neval
12064 integer(IK) ,
intent(out) :: nint
12070 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12072 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12075 procedure(
real(RKC)) :: getFunc
12076 type(ninf_type) ,
intent(in) :: lb
12077 real(RKC) ,
intent(in) :: ub
12078 real(RKC) ,
intent(in) :: abstol
12079 real(RKC) ,
intent(in) :: reltol
12080 type(GK15_type) ,
intent(in) :: qrule
12081 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12082 real(RKC) ,
intent(out) :: integral, abserr
12083 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12084 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12085 integer(IK) ,
intent(out) :: neval
12086 integer(IK) ,
intent(out) :: nint
12092 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12094 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12097 procedure(
real(RKC)) :: getFunc
12098 type(ninf_type) ,
intent(in) :: lb
12099 real(RKC) ,
intent(in) :: ub
12100 real(RKC) ,
intent(in) :: abstol
12101 real(RKC) ,
intent(in) :: reltol
12102 type(GK15_type) ,
intent(in) :: qrule
12103 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12104 real(RKC) ,
intent(out) :: integral, abserr
12105 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12106 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12107 integer(IK) ,
intent(out) :: neval
12108 integer(IK) ,
intent(out) :: nint
12114 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12116 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12119 procedure(
real(RKC)) :: getFunc
12120 type(ninf_type) ,
intent(in) :: lb
12121 real(RKC) ,
intent(in) :: ub
12122 real(RKC) ,
intent(in) :: abstol
12123 real(RKC) ,
intent(in) :: reltol
12124 type(GK15_type) ,
intent(in) :: qrule
12125 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12126 real(RKC) ,
intent(out) :: integral, abserr
12127 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12128 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12129 integer(IK) ,
intent(out) :: neval
12130 integer(IK) ,
intent(out) :: nint
12136 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12141 procedure(
real(RKC)) :: getFunc
12142 type(ninf_type) ,
intent(in) :: lb
12143 real(RKC) ,
intent(in) :: ub
12144 real(RKC) ,
intent(in) :: abstol
12145 real(RKC) ,
intent(in) :: reltol
12146 type(GK15_type) ,
intent(in) :: qrule
12147 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12148 real(RKC) ,
intent(out) :: integral, abserr
12149 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12150 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12151 integer(IK) ,
intent(out) :: neval
12152 integer(IK) ,
intent(out) :: nint
12160 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12162 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12165 procedure(
real(RKC)) :: getFunc
12166 type(ninf_type) ,
intent(in) :: lb
12167 type(pinf_type) ,
intent(in) :: ub
12168 real(RKC) ,
intent(in) :: abstol
12169 real(RKC) ,
intent(in) :: reltol
12170 type(GK15_type) ,
intent(in) :: qrule
12171 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12172 real(RKC) ,
intent(out) :: integral, abserr
12173 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12174 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12175 integer(IK) ,
intent(out) :: neval
12176 integer(IK) ,
intent(out) :: nint
12182 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12184 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12187 procedure(
real(RKC)) :: getFunc
12188 type(ninf_type) ,
intent(in) :: lb
12189 type(pinf_type) ,
intent(in) :: ub
12190 real(RKC) ,
intent(in) :: abstol
12191 real(RKC) ,
intent(in) :: reltol
12192 type(GK15_type) ,
intent(in) :: qrule
12193 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12194 real(RKC) ,
intent(out) :: integral, abserr
12195 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12196 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12197 integer(IK) ,
intent(out) :: neval
12198 integer(IK) ,
intent(out) :: nint
12204 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12206 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12209 procedure(
real(RKC)) :: getFunc
12210 type(ninf_type) ,
intent(in) :: lb
12211 type(pinf_type) ,
intent(in) :: ub
12212 real(RKC) ,
intent(in) :: abstol
12213 real(RKC) ,
intent(in) :: reltol
12214 type(GK15_type) ,
intent(in) :: qrule
12215 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12216 real(RKC) ,
intent(out) :: integral, abserr
12217 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12218 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12219 integer(IK) ,
intent(out) :: neval
12220 integer(IK) ,
intent(out) :: nint
12226 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12231 procedure(
real(RKC)) :: getFunc
12232 type(ninf_type) ,
intent(in) :: lb
12233 type(pinf_type) ,
intent(in) :: ub
12234 real(RKC) ,
intent(in) :: abstol
12235 real(RKC) ,
intent(in) :: reltol
12236 type(GK15_type) ,
intent(in) :: qrule
12237 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12238 real(RKC) ,
intent(out) :: integral, abserr
12239 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12240 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12241 integer(IK) ,
intent(out) :: neval
12242 integer(IK) ,
intent(out) :: nint
12248 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12253 procedure(
real(RKC)) :: getFunc
12254 type(ninf_type) ,
intent(in) :: lb
12255 type(pinf_type) ,
intent(in) :: ub
12256 real(RKC) ,
intent(in) :: abstol
12257 real(RKC) ,
intent(in) :: reltol
12258 type(GK15_type) ,
intent(in) :: qrule
12259 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12260 real(RKC) ,
intent(out) :: integral, abserr
12261 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12262 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12263 integer(IK) ,
intent(out) :: neval
12264 integer(IK) ,
intent(out) :: nint
12280 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12282 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12285 procedure(
real(RKC)) :: getFunc
12286 real(RKC) ,
intent(in) :: lb
12287 real(RKC) ,
intent(in) :: ub
12288 real(RKC) ,
intent(in) :: abstol
12289 real(RKC) ,
intent(in) :: reltol
12290 type(GK21_type) ,
intent(in) :: qrule
12291 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12292 real(RKC) ,
intent(out) :: integral, abserr
12293 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12294 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12295 integer(IK) ,
intent(out) :: neval
12296 integer(IK) ,
intent(out) :: nint
12302 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12304 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12307 procedure(
real(RKC)) :: getFunc
12308 real(RKC) ,
intent(in) :: lb
12309 real(RKC) ,
intent(in) :: ub
12310 real(RKC) ,
intent(in) :: abstol
12311 real(RKC) ,
intent(in) :: reltol
12312 type(GK21_type) ,
intent(in) :: qrule
12313 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12314 real(RKC) ,
intent(out) :: integral, abserr
12315 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12316 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12317 integer(IK) ,
intent(out) :: neval
12318 integer(IK) ,
intent(out) :: nint
12324 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12326 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12329 procedure(
real(RKC)) :: getFunc
12330 real(RKC) ,
intent(in) :: lb
12331 real(RKC) ,
intent(in) :: ub
12332 real(RKC) ,
intent(in) :: abstol
12333 real(RKC) ,
intent(in) :: reltol
12334 type(GK21_type) ,
intent(in) :: qrule
12335 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12336 real(RKC) ,
intent(out) :: integral, abserr
12337 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12338 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12339 integer(IK) ,
intent(out) :: neval
12340 integer(IK) ,
intent(out) :: nint
12346 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12348 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12351 procedure(
real(RKC)) :: getFunc
12352 real(RKC) ,
intent(in) :: lb
12353 real(RKC) ,
intent(in) :: ub
12354 real(RKC) ,
intent(in) :: abstol
12355 real(RKC) ,
intent(in) :: reltol
12356 type(GK21_type) ,
intent(in) :: qrule
12357 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12358 real(RKC) ,
intent(out) :: integral, abserr
12359 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12360 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12361 integer(IK) ,
intent(out) :: neval
12362 integer(IK) ,
intent(out) :: nint
12368 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12370 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12373 procedure(
real(RKC)) :: getFunc
12374 real(RKC) ,
intent(in) :: lb
12375 real(RKC) ,
intent(in) :: ub
12376 real(RKC) ,
intent(in) :: abstol
12377 real(RKC) ,
intent(in) :: reltol
12378 type(GK21_type) ,
intent(in) :: qrule
12379 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12380 real(RKC) ,
intent(out) :: integral, abserr
12381 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12382 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12383 integer(IK) ,
intent(out) :: neval
12384 integer(IK) ,
intent(out) :: nint
12392 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12397 procedure(
real(RKC)) :: getFunc
12398 real(RKC) ,
intent(in) :: lb
12399 type(pinf_type) ,
intent(in) :: ub
12400 real(RKC) ,
intent(in) :: abstol
12401 real(RKC) ,
intent(in) :: reltol
12402 type(GK21_type) ,
intent(in) :: qrule
12403 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12404 real(RKC) ,
intent(out) :: integral, abserr
12405 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12406 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12407 integer(IK) ,
intent(out) :: neval
12408 integer(IK) ,
intent(out) :: nint
12414 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12416 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12419 procedure(
real(RKC)) :: getFunc
12420 real(RKC) ,
intent(in) :: lb
12421 type(pinf_type) ,
intent(in) :: ub
12422 real(RKC) ,
intent(in) :: abstol
12423 real(RKC) ,
intent(in) :: reltol
12424 type(GK21_type) ,
intent(in) :: qrule
12425 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12426 real(RKC) ,
intent(out) :: integral, abserr
12427 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12428 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12429 integer(IK) ,
intent(out) :: neval
12430 integer(IK) ,
intent(out) :: nint
12436 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12438 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12441 procedure(
real(RKC)) :: getFunc
12442 real(RKC) ,
intent(in) :: lb
12443 type(pinf_type) ,
intent(in) :: ub
12444 real(RKC) ,
intent(in) :: abstol
12445 real(RKC) ,
intent(in) :: reltol
12446 type(GK21_type) ,
intent(in) :: qrule
12447 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12448 real(RKC) ,
intent(out) :: integral, abserr
12449 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12450 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12451 integer(IK) ,
intent(out) :: neval
12452 integer(IK) ,
intent(out) :: nint
12458 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12460 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12463 procedure(
real(RKC)) :: getFunc
12464 real(RKC) ,
intent(in) :: lb
12465 type(pinf_type) ,
intent(in) :: ub
12466 real(RKC) ,
intent(in) :: abstol
12467 real(RKC) ,
intent(in) :: reltol
12468 type(GK21_type) ,
intent(in) :: qrule
12469 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12470 real(RKC) ,
intent(out) :: integral, abserr
12471 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12472 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12473 integer(IK) ,
intent(out) :: neval
12474 integer(IK) ,
intent(out) :: nint
12480 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12485 procedure(
real(RKC)) :: getFunc
12486 real(RKC) ,
intent(in) :: lb
12487 type(pinf_type) ,
intent(in) :: ub
12488 real(RKC) ,
intent(in) :: abstol
12489 real(RKC) ,
intent(in) :: reltol
12490 type(GK21_type) ,
intent(in) :: qrule
12491 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12492 real(RKC) ,
intent(out) :: integral, abserr
12493 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12494 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12495 integer(IK) ,
intent(out) :: neval
12496 integer(IK) ,
intent(out) :: nint
12504 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12506 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12509 procedure(
real(RKC)) :: getFunc
12510 type(ninf_type) ,
intent(in) :: lb
12511 real(RKC) ,
intent(in) :: ub
12512 real(RKC) ,
intent(in) :: abstol
12513 real(RKC) ,
intent(in) :: reltol
12514 type(GK21_type) ,
intent(in) :: qrule
12515 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12516 real(RKC) ,
intent(out) :: integral, abserr
12517 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12518 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12519 integer(IK) ,
intent(out) :: neval
12520 integer(IK) ,
intent(out) :: nint
12526 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12528 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12531 procedure(
real(RKC)) :: getFunc
12532 type(ninf_type) ,
intent(in) :: lb
12533 real(RKC) ,
intent(in) :: ub
12534 real(RKC) ,
intent(in) :: abstol
12535 real(RKC) ,
intent(in) :: reltol
12536 type(GK21_type) ,
intent(in) :: qrule
12537 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12538 real(RKC) ,
intent(out) :: integral, abserr
12539 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12540 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12541 integer(IK) ,
intent(out) :: neval
12542 integer(IK) ,
intent(out) :: nint
12548 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12550 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12553 procedure(
real(RKC)) :: getFunc
12554 type(ninf_type) ,
intent(in) :: lb
12555 real(RKC) ,
intent(in) :: ub
12556 real(RKC) ,
intent(in) :: abstol
12557 real(RKC) ,
intent(in) :: reltol
12558 type(GK21_type) ,
intent(in) :: qrule
12559 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12560 real(RKC) ,
intent(out) :: integral, abserr
12561 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12562 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12563 integer(IK) ,
intent(out) :: neval
12564 integer(IK) ,
intent(out) :: nint
12570 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12572 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12575 procedure(
real(RKC)) :: getFunc
12576 type(ninf_type) ,
intent(in) :: lb
12577 real(RKC) ,
intent(in) :: ub
12578 real(RKC) ,
intent(in) :: abstol
12579 real(RKC) ,
intent(in) :: reltol
12580 type(GK21_type) ,
intent(in) :: qrule
12581 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12582 real(RKC) ,
intent(out) :: integral, abserr
12583 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12584 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12585 integer(IK) ,
intent(out) :: neval
12586 integer(IK) ,
intent(out) :: nint
12592 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12597 procedure(
real(RKC)) :: getFunc
12598 type(ninf_type) ,
intent(in) :: lb
12599 real(RKC) ,
intent(in) :: ub
12600 real(RKC) ,
intent(in) :: abstol
12601 real(RKC) ,
intent(in) :: reltol
12602 type(GK21_type) ,
intent(in) :: qrule
12603 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12604 real(RKC) ,
intent(out) :: integral, abserr
12605 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12606 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12607 integer(IK) ,
intent(out) :: neval
12608 integer(IK) ,
intent(out) :: nint
12616 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12618 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12621 procedure(
real(RKC)) :: getFunc
12622 type(ninf_type) ,
intent(in) :: lb
12623 type(pinf_type) ,
intent(in) :: ub
12624 real(RKC) ,
intent(in) :: abstol
12625 real(RKC) ,
intent(in) :: reltol
12626 type(GK21_type) ,
intent(in) :: qrule
12627 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12628 real(RKC) ,
intent(out) :: integral, abserr
12629 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12630 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12631 integer(IK) ,
intent(out) :: neval
12632 integer(IK) ,
intent(out) :: nint
12638 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12640 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12643 procedure(
real(RKC)) :: getFunc
12644 type(ninf_type) ,
intent(in) :: lb
12645 type(pinf_type) ,
intent(in) :: ub
12646 real(RKC) ,
intent(in) :: abstol
12647 real(RKC) ,
intent(in) :: reltol
12648 type(GK21_type) ,
intent(in) :: qrule
12649 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12650 real(RKC) ,
intent(out) :: integral, abserr
12651 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12652 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12653 integer(IK) ,
intent(out) :: neval
12654 integer(IK) ,
intent(out) :: nint
12660 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12665 procedure(
real(RKC)) :: getFunc
12666 type(ninf_type) ,
intent(in) :: lb
12667 type(pinf_type) ,
intent(in) :: ub
12668 real(RKC) ,
intent(in) :: abstol
12669 real(RKC) ,
intent(in) :: reltol
12670 type(GK21_type) ,
intent(in) :: qrule
12671 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12672 real(RKC) ,
intent(out) :: integral, abserr
12673 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12674 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12675 integer(IK) ,
intent(out) :: neval
12676 integer(IK) ,
intent(out) :: nint
12682 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12684 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12687 procedure(
real(RKC)) :: getFunc
12688 type(ninf_type) ,
intent(in) :: lb
12689 type(pinf_type) ,
intent(in) :: ub
12690 real(RKC) ,
intent(in) :: abstol
12691 real(RKC) ,
intent(in) :: reltol
12692 type(GK21_type) ,
intent(in) :: qrule
12693 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12694 real(RKC) ,
intent(out) :: integral, abserr
12695 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12696 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12697 integer(IK) ,
intent(out) :: neval
12698 integer(IK) ,
intent(out) :: nint
12704 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12709 procedure(
real(RKC)) :: getFunc
12710 type(ninf_type) ,
intent(in) :: lb
12711 type(pinf_type) ,
intent(in) :: ub
12712 real(RKC) ,
intent(in) :: abstol
12713 real(RKC) ,
intent(in) :: reltol
12714 type(GK21_type) ,
intent(in) :: qrule
12715 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12716 real(RKC) ,
intent(out) :: integral, abserr
12717 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12718 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12719 integer(IK) ,
intent(out) :: neval
12720 integer(IK) ,
intent(out) :: nint
12736 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12738 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12741 procedure(
real(RKC)) :: getFunc
12742 real(RKC) ,
intent(in) :: lb
12743 real(RKC) ,
intent(in) :: ub
12744 real(RKC) ,
intent(in) :: abstol
12745 real(RKC) ,
intent(in) :: reltol
12746 type(GK31_type) ,
intent(in) :: qrule
12747 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12748 real(RKC) ,
intent(out) :: integral, abserr
12749 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12750 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12751 integer(IK) ,
intent(out) :: neval
12752 integer(IK) ,
intent(out) :: nint
12758 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12760 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12763 procedure(
real(RKC)) :: getFunc
12764 real(RKC) ,
intent(in) :: lb
12765 real(RKC) ,
intent(in) :: ub
12766 real(RKC) ,
intent(in) :: abstol
12767 real(RKC) ,
intent(in) :: reltol
12768 type(GK31_type) ,
intent(in) :: qrule
12769 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12770 real(RKC) ,
intent(out) :: integral, abserr
12771 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12772 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12773 integer(IK) ,
intent(out) :: neval
12774 integer(IK) ,
intent(out) :: nint
12780 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12782 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12785 procedure(
real(RKC)) :: getFunc
12786 real(RKC) ,
intent(in) :: lb
12787 real(RKC) ,
intent(in) :: ub
12788 real(RKC) ,
intent(in) :: abstol
12789 real(RKC) ,
intent(in) :: reltol
12790 type(GK31_type) ,
intent(in) :: qrule
12791 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12792 real(RKC) ,
intent(out) :: integral, abserr
12793 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12794 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12795 integer(IK) ,
intent(out) :: neval
12796 integer(IK) ,
intent(out) :: nint
12802 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12804 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12807 procedure(
real(RKC)) :: getFunc
12808 real(RKC) ,
intent(in) :: lb
12809 real(RKC) ,
intent(in) :: ub
12810 real(RKC) ,
intent(in) :: abstol
12811 real(RKC) ,
intent(in) :: reltol
12812 type(GK31_type) ,
intent(in) :: qrule
12813 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12814 real(RKC) ,
intent(out) :: integral, abserr
12815 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12816 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12817 integer(IK) ,
intent(out) :: neval
12818 integer(IK) ,
intent(out) :: nint
12824 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12826 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12829 procedure(
real(RKC)) :: getFunc
12830 real(RKC) ,
intent(in) :: lb
12831 real(RKC) ,
intent(in) :: ub
12832 real(RKC) ,
intent(in) :: abstol
12833 real(RKC) ,
intent(in) :: reltol
12834 type(GK31_type) ,
intent(in) :: qrule
12835 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12836 real(RKC) ,
intent(out) :: integral, abserr
12837 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12838 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12839 integer(IK) ,
intent(out) :: neval
12840 integer(IK) ,
intent(out) :: nint
12848 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12853 procedure(
real(RKC)) :: getFunc
12854 real(RKC) ,
intent(in) :: lb
12855 type(pinf_type) ,
intent(in) :: ub
12856 real(RKC) ,
intent(in) :: abstol
12857 real(RKC) ,
intent(in) :: reltol
12858 type(GK31_type) ,
intent(in) :: qrule
12859 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12860 real(RKC) ,
intent(out) :: integral, abserr
12861 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12862 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12863 integer(IK) ,
intent(out) :: neval
12864 integer(IK) ,
intent(out) :: nint
12870 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12872 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12875 procedure(
real(RKC)) :: getFunc
12876 real(RKC) ,
intent(in) :: lb
12877 type(pinf_type) ,
intent(in) :: ub
12878 real(RKC) ,
intent(in) :: abstol
12879 real(RKC) ,
intent(in) :: reltol
12880 type(GK31_type) ,
intent(in) :: qrule
12881 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12882 real(RKC) ,
intent(out) :: integral, abserr
12883 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12884 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12885 integer(IK) ,
intent(out) :: neval
12886 integer(IK) ,
intent(out) :: nint
12892 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12894 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12897 procedure(
real(RKC)) :: getFunc
12898 real(RKC) ,
intent(in) :: lb
12899 type(pinf_type) ,
intent(in) :: ub
12900 real(RKC) ,
intent(in) :: abstol
12901 real(RKC) ,
intent(in) :: reltol
12902 type(GK31_type) ,
intent(in) :: qrule
12903 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12904 real(RKC) ,
intent(out) :: integral, abserr
12905 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12906 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12907 integer(IK) ,
intent(out) :: neval
12908 integer(IK) ,
intent(out) :: nint
12914 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12916 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12919 procedure(
real(RKC)) :: getFunc
12920 real(RKC) ,
intent(in) :: lb
12921 type(pinf_type) ,
intent(in) :: ub
12922 real(RKC) ,
intent(in) :: abstol
12923 real(RKC) ,
intent(in) :: reltol
12924 type(GK31_type) ,
intent(in) :: qrule
12925 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12926 real(RKC) ,
intent(out) :: integral, abserr
12927 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12928 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12929 integer(IK) ,
intent(out) :: neval
12930 integer(IK) ,
intent(out) :: nint
12936 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12938 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
12941 procedure(
real(RKC)) :: getFunc
12942 real(RKC) ,
intent(in) :: lb
12943 type(pinf_type) ,
intent(in) :: ub
12944 real(RKC) ,
intent(in) :: abstol
12945 real(RKC) ,
intent(in) :: reltol
12946 type(GK31_type) ,
intent(in) :: qrule
12947 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12948 real(RKC) ,
intent(out) :: integral, abserr
12949 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12950 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12951 integer(IK) ,
intent(out) :: neval
12952 integer(IK) ,
intent(out) :: nint
12960 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
12965 procedure(
real(RKC)) :: getFunc
12966 type(ninf_type) ,
intent(in) :: lb
12967 real(RKC) ,
intent(in) :: ub
12968 real(RKC) ,
intent(in) :: abstol
12969 real(RKC) ,
intent(in) :: reltol
12970 type(GK31_type) ,
intent(in) :: qrule
12971 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12972 real(RKC) ,
intent(out) :: integral, abserr
12973 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12974 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12975 integer(IK) ,
intent(out) :: neval
12976 integer(IK) ,
intent(out) :: nint
12982 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
12983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
12987 procedure(
real(RKC)) :: getFunc
12988 type(ninf_type) ,
intent(in) :: lb
12989 real(RKC) ,
intent(in) :: ub
12990 real(RKC) ,
intent(in) :: abstol
12991 real(RKC) ,
intent(in) :: reltol
12992 type(GK31_type) ,
intent(in) :: qrule
12993 real(RKC) ,
intent(in) ,
contiguous :: help(:)
12994 real(RKC) ,
intent(out) :: integral, abserr
12995 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
12996 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
12997 integer(IK) ,
intent(out) :: neval
12998 integer(IK) ,
intent(out) :: nint
13004 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13006 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13009 procedure(
real(RKC)) :: getFunc
13010 type(ninf_type) ,
intent(in) :: lb
13011 real(RKC) ,
intent(in) :: ub
13012 real(RKC) ,
intent(in) :: abstol
13013 real(RKC) ,
intent(in) :: reltol
13014 type(GK31_type) ,
intent(in) :: qrule
13015 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13016 real(RKC) ,
intent(out) :: integral, abserr
13017 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13018 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13019 integer(IK) ,
intent(out) :: neval
13020 integer(IK) ,
intent(out) :: nint
13026 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13028 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13031 procedure(
real(RKC)) :: getFunc
13032 type(ninf_type) ,
intent(in) :: lb
13033 real(RKC) ,
intent(in) :: ub
13034 real(RKC) ,
intent(in) :: abstol
13035 real(RKC) ,
intent(in) :: reltol
13036 type(GK31_type) ,
intent(in) :: qrule
13037 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13038 real(RKC) ,
intent(out) :: integral, abserr
13039 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13040 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13041 integer(IK) ,
intent(out) :: neval
13042 integer(IK) ,
intent(out) :: nint
13048 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13050 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13053 procedure(
real(RKC)) :: getFunc
13054 type(ninf_type) ,
intent(in) :: lb
13055 real(RKC) ,
intent(in) :: ub
13056 real(RKC) ,
intent(in) :: abstol
13057 real(RKC) ,
intent(in) :: reltol
13058 type(GK31_type) ,
intent(in) :: qrule
13059 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13060 real(RKC) ,
intent(out) :: integral, abserr
13061 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13062 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13063 integer(IK) ,
intent(out) :: neval
13064 integer(IK) ,
intent(out) :: nint
13072 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13077 procedure(
real(RKC)) :: getFunc
13078 type(ninf_type) ,
intent(in) :: lb
13079 type(pinf_type) ,
intent(in) :: ub
13080 real(RKC) ,
intent(in) :: abstol
13081 real(RKC) ,
intent(in) :: reltol
13082 type(GK31_type) ,
intent(in) :: qrule
13083 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13084 real(RKC) ,
intent(out) :: integral, abserr
13085 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13086 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13087 integer(IK) ,
intent(out) :: neval
13088 integer(IK) ,
intent(out) :: nint
13094 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13099 procedure(
real(RKC)) :: getFunc
13100 type(ninf_type) ,
intent(in) :: lb
13101 type(pinf_type) ,
intent(in) :: ub
13102 real(RKC) ,
intent(in) :: abstol
13103 real(RKC) ,
intent(in) :: reltol
13104 type(GK31_type) ,
intent(in) :: qrule
13105 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13106 real(RKC) ,
intent(out) :: integral, abserr
13107 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13108 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13109 integer(IK) ,
intent(out) :: neval
13110 integer(IK) ,
intent(out) :: nint
13116 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13118 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13121 procedure(
real(RKC)) :: getFunc
13122 type(ninf_type) ,
intent(in) :: lb
13123 type(pinf_type) ,
intent(in) :: ub
13124 real(RKC) ,
intent(in) :: abstol
13125 real(RKC) ,
intent(in) :: reltol
13126 type(GK31_type) ,
intent(in) :: qrule
13127 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13128 real(RKC) ,
intent(out) :: integral, abserr
13129 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13130 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13131 integer(IK) ,
intent(out) :: neval
13132 integer(IK) ,
intent(out) :: nint
13138 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13140 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13143 procedure(
real(RKC)) :: getFunc
13144 type(ninf_type) ,
intent(in) :: lb
13145 type(pinf_type) ,
intent(in) :: ub
13146 real(RKC) ,
intent(in) :: abstol
13147 real(RKC) ,
intent(in) :: reltol
13148 type(GK31_type) ,
intent(in) :: qrule
13149 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13150 real(RKC) ,
intent(out) :: integral, abserr
13151 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13152 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13153 integer(IK) ,
intent(out) :: neval
13154 integer(IK) ,
intent(out) :: nint
13160 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13162 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13165 procedure(
real(RKC)) :: getFunc
13166 type(ninf_type) ,
intent(in) :: lb
13167 type(pinf_type) ,
intent(in) :: ub
13168 real(RKC) ,
intent(in) :: abstol
13169 real(RKC) ,
intent(in) :: reltol
13170 type(GK31_type) ,
intent(in) :: qrule
13171 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13172 real(RKC) ,
intent(out) :: integral, abserr
13173 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13174 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13175 integer(IK) ,
intent(out) :: neval
13176 integer(IK) ,
intent(out) :: nint
13192 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13197 procedure(
real(RKC)) :: getFunc
13198 real(RKC) ,
intent(in) :: lb
13199 real(RKC) ,
intent(in) :: ub
13200 real(RKC) ,
intent(in) :: abstol
13201 real(RKC) ,
intent(in) :: reltol
13202 type(GK41_type) ,
intent(in) :: qrule
13203 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13204 real(RKC) ,
intent(out) :: integral, abserr
13205 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13206 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13207 integer(IK) ,
intent(out) :: neval
13208 integer(IK) ,
intent(out) :: nint
13214 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13216 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13219 procedure(
real(RKC)) :: getFunc
13220 real(RKC) ,
intent(in) :: lb
13221 real(RKC) ,
intent(in) :: ub
13222 real(RKC) ,
intent(in) :: abstol
13223 real(RKC) ,
intent(in) :: reltol
13224 type(GK41_type) ,
intent(in) :: qrule
13225 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13226 real(RKC) ,
intent(out) :: integral, abserr
13227 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13228 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13229 integer(IK) ,
intent(out) :: neval
13230 integer(IK) ,
intent(out) :: nint
13236 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13238 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13241 procedure(
real(RKC)) :: getFunc
13242 real(RKC) ,
intent(in) :: lb
13243 real(RKC) ,
intent(in) :: ub
13244 real(RKC) ,
intent(in) :: abstol
13245 real(RKC) ,
intent(in) :: reltol
13246 type(GK41_type) ,
intent(in) :: qrule
13247 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13248 real(RKC) ,
intent(out) :: integral, abserr
13249 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13250 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13251 integer(IK) ,
intent(out) :: neval
13252 integer(IK) ,
intent(out) :: nint
13258 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13260 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13263 procedure(
real(RKC)) :: getFunc
13264 real(RKC) ,
intent(in) :: lb
13265 real(RKC) ,
intent(in) :: ub
13266 real(RKC) ,
intent(in) :: abstol
13267 real(RKC) ,
intent(in) :: reltol
13268 type(GK41_type) ,
intent(in) :: qrule
13269 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13270 real(RKC) ,
intent(out) :: integral, abserr
13271 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13272 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13273 integer(IK) ,
intent(out) :: neval
13274 integer(IK) ,
intent(out) :: nint
13280 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13282 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13285 procedure(
real(RKC)) :: getFunc
13286 real(RKC) ,
intent(in) :: lb
13287 real(RKC) ,
intent(in) :: ub
13288 real(RKC) ,
intent(in) :: abstol
13289 real(RKC) ,
intent(in) :: reltol
13290 type(GK41_type) ,
intent(in) :: qrule
13291 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13292 real(RKC) ,
intent(out) :: integral, abserr
13293 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13294 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13295 integer(IK) ,
intent(out) :: neval
13296 integer(IK) ,
intent(out) :: nint
13304 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13309 procedure(
real(RKC)) :: getFunc
13310 real(RKC) ,
intent(in) :: lb
13311 type(pinf_type) ,
intent(in) :: ub
13312 real(RKC) ,
intent(in) :: abstol
13313 real(RKC) ,
intent(in) :: reltol
13314 type(GK41_type) ,
intent(in) :: qrule
13315 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13316 real(RKC) ,
intent(out) :: integral, abserr
13317 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13318 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13319 integer(IK) ,
intent(out) :: neval
13320 integer(IK) ,
intent(out) :: nint
13326 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13328 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13331 procedure(
real(RKC)) :: getFunc
13332 real(RKC) ,
intent(in) :: lb
13333 type(pinf_type) ,
intent(in) :: ub
13334 real(RKC) ,
intent(in) :: abstol
13335 real(RKC) ,
intent(in) :: reltol
13336 type(GK41_type) ,
intent(in) :: qrule
13337 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13338 real(RKC) ,
intent(out) :: integral, abserr
13339 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13340 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13341 integer(IK) ,
intent(out) :: neval
13342 integer(IK) ,
intent(out) :: nint
13348 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13350 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13353 procedure(
real(RKC)) :: getFunc
13354 real(RKC) ,
intent(in) :: lb
13355 type(pinf_type) ,
intent(in) :: ub
13356 real(RKC) ,
intent(in) :: abstol
13357 real(RKC) ,
intent(in) :: reltol
13358 type(GK41_type) ,
intent(in) :: qrule
13359 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13360 real(RKC) ,
intent(out) :: integral, abserr
13361 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13362 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13363 integer(IK) ,
intent(out) :: neval
13364 integer(IK) ,
intent(out) :: nint
13370 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13372 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13375 procedure(
real(RKC)) :: getFunc
13376 real(RKC) ,
intent(in) :: lb
13377 type(pinf_type) ,
intent(in) :: ub
13378 real(RKC) ,
intent(in) :: abstol
13379 real(RKC) ,
intent(in) :: reltol
13380 type(GK41_type) ,
intent(in) :: qrule
13381 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13382 real(RKC) ,
intent(out) :: integral, abserr
13383 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13384 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13385 integer(IK) ,
intent(out) :: neval
13386 integer(IK) ,
intent(out) :: nint
13392 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13394 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13397 procedure(
real(RKC)) :: getFunc
13398 real(RKC) ,
intent(in) :: lb
13399 type(pinf_type) ,
intent(in) :: ub
13400 real(RKC) ,
intent(in) :: abstol
13401 real(RKC) ,
intent(in) :: reltol
13402 type(GK41_type) ,
intent(in) :: qrule
13403 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13404 real(RKC) ,
intent(out) :: integral, abserr
13405 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13406 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13407 integer(IK) ,
intent(out) :: neval
13408 integer(IK) ,
intent(out) :: nint
13416 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13421 procedure(
real(RKC)) :: getFunc
13422 type(ninf_type) ,
intent(in) :: lb
13423 real(RKC) ,
intent(in) :: ub
13424 real(RKC) ,
intent(in) :: abstol
13425 real(RKC) ,
intent(in) :: reltol
13426 type(GK41_type) ,
intent(in) :: qrule
13427 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13428 real(RKC) ,
intent(out) :: integral, abserr
13429 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13430 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13431 integer(IK) ,
intent(out) :: neval
13432 integer(IK) ,
intent(out) :: nint
13438 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13443 procedure(
real(RKC)) :: getFunc
13444 type(ninf_type) ,
intent(in) :: lb
13445 real(RKC) ,
intent(in) :: ub
13446 real(RKC) ,
intent(in) :: abstol
13447 real(RKC) ,
intent(in) :: reltol
13448 type(GK41_type) ,
intent(in) :: qrule
13449 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13450 real(RKC) ,
intent(out) :: integral, abserr
13451 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13452 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13453 integer(IK) ,
intent(out) :: neval
13454 integer(IK) ,
intent(out) :: nint
13460 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13462 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13465 procedure(
real(RKC)) :: getFunc
13466 type(ninf_type) ,
intent(in) :: lb
13467 real(RKC) ,
intent(in) :: ub
13468 real(RKC) ,
intent(in) :: abstol
13469 real(RKC) ,
intent(in) :: reltol
13470 type(GK41_type) ,
intent(in) :: qrule
13471 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13472 real(RKC) ,
intent(out) :: integral, abserr
13473 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13474 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13475 integer(IK) ,
intent(out) :: neval
13476 integer(IK) ,
intent(out) :: nint
13482 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13484 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13487 procedure(
real(RKC)) :: getFunc
13488 type(ninf_type) ,
intent(in) :: lb
13489 real(RKC) ,
intent(in) :: ub
13490 real(RKC) ,
intent(in) :: abstol
13491 real(RKC) ,
intent(in) :: reltol
13492 type(GK41_type) ,
intent(in) :: qrule
13493 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13494 real(RKC) ,
intent(out) :: integral, abserr
13495 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13496 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13497 integer(IK) ,
intent(out) :: neval
13498 integer(IK) ,
intent(out) :: nint
13504 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13506 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13509 procedure(
real(RKC)) :: getFunc
13510 type(ninf_type) ,
intent(in) :: lb
13511 real(RKC) ,
intent(in) :: ub
13512 real(RKC) ,
intent(in) :: abstol
13513 real(RKC) ,
intent(in) :: reltol
13514 type(GK41_type) ,
intent(in) :: qrule
13515 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13516 real(RKC) ,
intent(out) :: integral, abserr
13517 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13518 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13519 integer(IK) ,
intent(out) :: neval
13520 integer(IK) ,
intent(out) :: nint
13528 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13533 procedure(
real(RKC)) :: getFunc
13534 type(ninf_type) ,
intent(in) :: lb
13535 type(pinf_type) ,
intent(in) :: ub
13536 real(RKC) ,
intent(in) :: abstol
13537 real(RKC) ,
intent(in) :: reltol
13538 type(GK41_type) ,
intent(in) :: qrule
13539 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13540 real(RKC) ,
intent(out) :: integral, abserr
13541 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13542 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13543 integer(IK) ,
intent(out) :: neval
13544 integer(IK) ,
intent(out) :: nint
13550 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13555 procedure(
real(RKC)) :: getFunc
13556 type(ninf_type) ,
intent(in) :: lb
13557 type(pinf_type) ,
intent(in) :: ub
13558 real(RKC) ,
intent(in) :: abstol
13559 real(RKC) ,
intent(in) :: reltol
13560 type(GK41_type) ,
intent(in) :: qrule
13561 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13562 real(RKC) ,
intent(out) :: integral, abserr
13563 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13564 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13565 integer(IK) ,
intent(out) :: neval
13566 integer(IK) ,
intent(out) :: nint
13572 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13574 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13577 procedure(
real(RKC)) :: getFunc
13578 type(ninf_type) ,
intent(in) :: lb
13579 type(pinf_type) ,
intent(in) :: ub
13580 real(RKC) ,
intent(in) :: abstol
13581 real(RKC) ,
intent(in) :: reltol
13582 type(GK41_type) ,
intent(in) :: qrule
13583 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13584 real(RKC) ,
intent(out) :: integral, abserr
13585 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13586 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13587 integer(IK) ,
intent(out) :: neval
13588 integer(IK) ,
intent(out) :: nint
13594 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13596 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13599 procedure(
real(RKC)) :: getFunc
13600 type(ninf_type) ,
intent(in) :: lb
13601 type(pinf_type) ,
intent(in) :: ub
13602 real(RKC) ,
intent(in) :: abstol
13603 real(RKC) ,
intent(in) :: reltol
13604 type(GK41_type) ,
intent(in) :: qrule
13605 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13606 real(RKC) ,
intent(out) :: integral, abserr
13607 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13608 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13609 integer(IK) ,
intent(out) :: neval
13610 integer(IK) ,
intent(out) :: nint
13616 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13618 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13621 procedure(
real(RKC)) :: getFunc
13622 type(ninf_type) ,
intent(in) :: lb
13623 type(pinf_type) ,
intent(in) :: ub
13624 real(RKC) ,
intent(in) :: abstol
13625 real(RKC) ,
intent(in) :: reltol
13626 type(GK41_type) ,
intent(in) :: qrule
13627 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13628 real(RKC) ,
intent(out) :: integral, abserr
13629 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13630 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13631 integer(IK) ,
intent(out) :: neval
13632 integer(IK) ,
intent(out) :: nint
13648 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13653 procedure(
real(RKC)) :: getFunc
13654 real(RKC) ,
intent(in) :: lb
13655 real(RKC) ,
intent(in) :: ub
13656 real(RKC) ,
intent(in) :: abstol
13657 real(RKC) ,
intent(in) :: reltol
13658 type(GK51_type) ,
intent(in) :: qrule
13659 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13660 real(RKC) ,
intent(out) :: integral, abserr
13661 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13662 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13663 integer(IK) ,
intent(out) :: neval
13664 integer(IK) ,
intent(out) :: nint
13670 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13672 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13675 procedure(
real(RKC)) :: getFunc
13676 real(RKC) ,
intent(in) :: lb
13677 real(RKC) ,
intent(in) :: ub
13678 real(RKC) ,
intent(in) :: abstol
13679 real(RKC) ,
intent(in) :: reltol
13680 type(GK51_type) ,
intent(in) :: qrule
13681 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13682 real(RKC) ,
intent(out) :: integral, abserr
13683 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13684 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13685 integer(IK) ,
intent(out) :: neval
13686 integer(IK) ,
intent(out) :: nint
13692 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13694 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13697 procedure(
real(RKC)) :: getFunc
13698 real(RKC) ,
intent(in) :: lb
13699 real(RKC) ,
intent(in) :: ub
13700 real(RKC) ,
intent(in) :: abstol
13701 real(RKC) ,
intent(in) :: reltol
13702 type(GK51_type) ,
intent(in) :: qrule
13703 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13704 real(RKC) ,
intent(out) :: integral, abserr
13705 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13706 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13707 integer(IK) ,
intent(out) :: neval
13708 integer(IK) ,
intent(out) :: nint
13714 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13716 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13719 procedure(
real(RKC)) :: getFunc
13720 real(RKC) ,
intent(in) :: lb
13721 real(RKC) ,
intent(in) :: ub
13722 real(RKC) ,
intent(in) :: abstol
13723 real(RKC) ,
intent(in) :: reltol
13724 type(GK51_type) ,
intent(in) :: qrule
13725 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13726 real(RKC) ,
intent(out) :: integral, abserr
13727 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13728 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13729 integer(IK) ,
intent(out) :: neval
13730 integer(IK) ,
intent(out) :: nint
13736 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13738 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13741 procedure(
real(RKC)) :: getFunc
13742 real(RKC) ,
intent(in) :: lb
13743 real(RKC) ,
intent(in) :: ub
13744 real(RKC) ,
intent(in) :: abstol
13745 real(RKC) ,
intent(in) :: reltol
13746 type(GK51_type) ,
intent(in) :: qrule
13747 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13748 real(RKC) ,
intent(out) :: integral, abserr
13749 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13750 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13751 integer(IK) ,
intent(out) :: neval
13752 integer(IK) ,
intent(out) :: nint
13760 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13765 procedure(
real(RKC)) :: getFunc
13766 real(RKC) ,
intent(in) :: lb
13767 type(pinf_type) ,
intent(in) :: ub
13768 real(RKC) ,
intent(in) :: abstol
13769 real(RKC) ,
intent(in) :: reltol
13770 type(GK51_type) ,
intent(in) :: qrule
13771 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13772 real(RKC) ,
intent(out) :: integral, abserr
13773 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13774 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13775 integer(IK) ,
intent(out) :: neval
13776 integer(IK) ,
intent(out) :: nint
13782 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13784 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13787 procedure(
real(RKC)) :: getFunc
13788 real(RKC) ,
intent(in) :: lb
13789 type(pinf_type) ,
intent(in) :: ub
13790 real(RKC) ,
intent(in) :: abstol
13791 real(RKC) ,
intent(in) :: reltol
13792 type(GK51_type) ,
intent(in) :: qrule
13793 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13794 real(RKC) ,
intent(out) :: integral, abserr
13795 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13796 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13797 integer(IK) ,
intent(out) :: neval
13798 integer(IK) ,
intent(out) :: nint
13804 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13806 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13809 procedure(
real(RKC)) :: getFunc
13810 real(RKC) ,
intent(in) :: lb
13811 type(pinf_type) ,
intent(in) :: ub
13812 real(RKC) ,
intent(in) :: abstol
13813 real(RKC) ,
intent(in) :: reltol
13814 type(GK51_type) ,
intent(in) :: qrule
13815 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13816 real(RKC) ,
intent(out) :: integral, abserr
13817 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13818 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13819 integer(IK) ,
intent(out) :: neval
13820 integer(IK) ,
intent(out) :: nint
13826 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13831 procedure(
real(RKC)) :: getFunc
13832 real(RKC) ,
intent(in) :: lb
13833 type(pinf_type) ,
intent(in) :: ub
13834 real(RKC) ,
intent(in) :: abstol
13835 real(RKC) ,
intent(in) :: reltol
13836 type(GK51_type) ,
intent(in) :: qrule
13837 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13838 real(RKC) ,
intent(out) :: integral, abserr
13839 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13840 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13841 integer(IK) ,
intent(out) :: neval
13842 integer(IK) ,
intent(out) :: nint
13848 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13853 procedure(
real(RKC)) :: getFunc
13854 real(RKC) ,
intent(in) :: lb
13855 type(pinf_type) ,
intent(in) :: ub
13856 real(RKC) ,
intent(in) :: abstol
13857 real(RKC) ,
intent(in) :: reltol
13858 type(GK51_type) ,
intent(in) :: qrule
13859 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13860 real(RKC) ,
intent(out) :: integral, abserr
13861 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13862 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13863 integer(IK) ,
intent(out) :: neval
13864 integer(IK) ,
intent(out) :: nint
13872 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13877 procedure(
real(RKC)) :: getFunc
13878 type(ninf_type) ,
intent(in) :: lb
13879 real(RKC) ,
intent(in) :: ub
13880 real(RKC) ,
intent(in) :: abstol
13881 real(RKC) ,
intent(in) :: reltol
13882 type(GK51_type) ,
intent(in) :: qrule
13883 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13884 real(RKC) ,
intent(out) :: integral, abserr
13885 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13886 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13887 integer(IK) ,
intent(out) :: neval
13888 integer(IK) ,
intent(out) :: nint
13894 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13899 procedure(
real(RKC)) :: getFunc
13900 type(ninf_type) ,
intent(in) :: lb
13901 real(RKC) ,
intent(in) :: ub
13902 real(RKC) ,
intent(in) :: abstol
13903 real(RKC) ,
intent(in) :: reltol
13904 type(GK51_type) ,
intent(in) :: qrule
13905 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13906 real(RKC) ,
intent(out) :: integral, abserr
13907 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13908 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13909 integer(IK) ,
intent(out) :: neval
13910 integer(IK) ,
intent(out) :: nint
13916 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13921 procedure(
real(RKC)) :: getFunc
13922 type(ninf_type) ,
intent(in) :: lb
13923 real(RKC) ,
intent(in) :: ub
13924 real(RKC) ,
intent(in) :: abstol
13925 real(RKC) ,
intent(in) :: reltol
13926 type(GK51_type) ,
intent(in) :: qrule
13927 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13928 real(RKC) ,
intent(out) :: integral, abserr
13929 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13930 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13931 integer(IK) ,
intent(out) :: neval
13932 integer(IK) ,
intent(out) :: nint
13938 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
13943 procedure(
real(RKC)) :: getFunc
13944 type(ninf_type) ,
intent(in) :: lb
13945 real(RKC) ,
intent(in) :: ub
13946 real(RKC) ,
intent(in) :: abstol
13947 real(RKC) ,
intent(in) :: reltol
13948 type(GK51_type) ,
intent(in) :: qrule
13949 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13950 real(RKC) ,
intent(out) :: integral, abserr
13951 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13952 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13953 integer(IK) ,
intent(out) :: neval
13954 integer(IK) ,
intent(out) :: nint
13960 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
13965 procedure(
real(RKC)) :: getFunc
13966 type(ninf_type) ,
intent(in) :: lb
13967 real(RKC) ,
intent(in) :: ub
13968 real(RKC) ,
intent(in) :: abstol
13969 real(RKC) ,
intent(in) :: reltol
13970 type(GK51_type) ,
intent(in) :: qrule
13971 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13972 real(RKC) ,
intent(out) :: integral, abserr
13973 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13974 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13975 integer(IK) ,
intent(out) :: neval
13976 integer(IK) ,
intent(out) :: nint
13984 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
13985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
13989 procedure(
real(RKC)) :: getFunc
13990 type(ninf_type) ,
intent(in) :: lb
13991 type(pinf_type) ,
intent(in) :: ub
13992 real(RKC) ,
intent(in) :: abstol
13993 real(RKC) ,
intent(in) :: reltol
13994 type(GK51_type) ,
intent(in) :: qrule
13995 real(RKC) ,
intent(in) ,
contiguous :: help(:)
13996 real(RKC) ,
intent(out) :: integral, abserr
13997 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
13998 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
13999 integer(IK) ,
intent(out) :: neval
14000 integer(IK) ,
intent(out) :: nint
14006 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14011 procedure(
real(RKC)) :: getFunc
14012 type(ninf_type) ,
intent(in) :: lb
14013 type(pinf_type) ,
intent(in) :: ub
14014 real(RKC) ,
intent(in) :: abstol
14015 real(RKC) ,
intent(in) :: reltol
14016 type(GK51_type) ,
intent(in) :: qrule
14017 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14018 real(RKC) ,
intent(out) :: integral, abserr
14019 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14020 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14021 integer(IK) ,
intent(out) :: neval
14022 integer(IK) ,
intent(out) :: nint
14028 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14033 procedure(
real(RKC)) :: getFunc
14034 type(ninf_type) ,
intent(in) :: lb
14035 type(pinf_type) ,
intent(in) :: ub
14036 real(RKC) ,
intent(in) :: abstol
14037 real(RKC) ,
intent(in) :: reltol
14038 type(GK51_type) ,
intent(in) :: qrule
14039 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14040 real(RKC) ,
intent(out) :: integral, abserr
14041 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14042 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14043 integer(IK) ,
intent(out) :: neval
14044 integer(IK) ,
intent(out) :: nint
14050 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14055 procedure(
real(RKC)) :: getFunc
14056 type(ninf_type) ,
intent(in) :: lb
14057 type(pinf_type) ,
intent(in) :: ub
14058 real(RKC) ,
intent(in) :: abstol
14059 real(RKC) ,
intent(in) :: reltol
14060 type(GK51_type) ,
intent(in) :: qrule
14061 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14062 real(RKC) ,
intent(out) :: integral, abserr
14063 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14064 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14065 integer(IK) ,
intent(out) :: neval
14066 integer(IK) ,
intent(out) :: nint
14072 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14077 procedure(
real(RKC)) :: getFunc
14078 type(ninf_type) ,
intent(in) :: lb
14079 type(pinf_type) ,
intent(in) :: ub
14080 real(RKC) ,
intent(in) :: abstol
14081 real(RKC) ,
intent(in) :: reltol
14082 type(GK51_type) ,
intent(in) :: qrule
14083 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14084 real(RKC) ,
intent(out) :: integral, abserr
14085 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14086 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14087 integer(IK) ,
intent(out) :: neval
14088 integer(IK) ,
intent(out) :: nint
14104 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14106 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14109 procedure(
real(RKC)) :: getFunc
14110 real(RKC) ,
intent(in) :: lb
14111 real(RKC) ,
intent(in) :: ub
14112 real(RKC) ,
intent(in) :: abstol
14113 real(RKC) ,
intent(in) :: reltol
14114 type(GK61_type) ,
intent(in) :: qrule
14115 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14116 real(RKC) ,
intent(out) :: integral, abserr
14117 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14118 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14119 integer(IK) ,
intent(out) :: neval
14120 integer(IK) ,
intent(out) :: nint
14126 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14128 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14131 procedure(
real(RKC)) :: getFunc
14132 real(RKC) ,
intent(in) :: lb
14133 real(RKC) ,
intent(in) :: ub
14134 real(RKC) ,
intent(in) :: abstol
14135 real(RKC) ,
intent(in) :: reltol
14136 type(GK61_type) ,
intent(in) :: qrule
14137 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14138 real(RKC) ,
intent(out) :: integral, abserr
14139 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14140 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14141 integer(IK) ,
intent(out) :: neval
14142 integer(IK) ,
intent(out) :: nint
14148 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14150 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14153 procedure(
real(RKC)) :: getFunc
14154 real(RKC) ,
intent(in) :: lb
14155 real(RKC) ,
intent(in) :: ub
14156 real(RKC) ,
intent(in) :: abstol
14157 real(RKC) ,
intent(in) :: reltol
14158 type(GK61_type) ,
intent(in) :: qrule
14159 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14160 real(RKC) ,
intent(out) :: integral, abserr
14161 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14162 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14163 integer(IK) ,
intent(out) :: neval
14164 integer(IK) ,
intent(out) :: nint
14170 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14172 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14175 procedure(
real(RKC)) :: getFunc
14176 real(RKC) ,
intent(in) :: lb
14177 real(RKC) ,
intent(in) :: ub
14178 real(RKC) ,
intent(in) :: abstol
14179 real(RKC) ,
intent(in) :: reltol
14180 type(GK61_type) ,
intent(in) :: qrule
14181 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14182 real(RKC) ,
intent(out) :: integral, abserr
14183 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14184 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14185 integer(IK) ,
intent(out) :: neval
14186 integer(IK) ,
intent(out) :: nint
14192 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14194 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14197 procedure(
real(RKC)) :: getFunc
14198 real(RKC) ,
intent(in) :: lb
14199 real(RKC) ,
intent(in) :: ub
14200 real(RKC) ,
intent(in) :: abstol
14201 real(RKC) ,
intent(in) :: reltol
14202 type(GK61_type) ,
intent(in) :: qrule
14203 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14204 real(RKC) ,
intent(out) :: integral, abserr
14205 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14206 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14207 integer(IK) ,
intent(out) :: neval
14208 integer(IK) ,
intent(out) :: nint
14216 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14218 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14221 procedure(
real(RKC)) :: getFunc
14222 real(RKC) ,
intent(in) :: lb
14223 type(pinf_type) ,
intent(in) :: ub
14224 real(RKC) ,
intent(in) :: abstol
14225 real(RKC) ,
intent(in) :: reltol
14226 type(GK61_type) ,
intent(in) :: qrule
14227 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14228 real(RKC) ,
intent(out) :: integral, abserr
14229 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14230 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14231 integer(IK) ,
intent(out) :: neval
14232 integer(IK) ,
intent(out) :: nint
14238 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14240 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14243 procedure(
real(RKC)) :: getFunc
14244 real(RKC) ,
intent(in) :: lb
14245 type(pinf_type) ,
intent(in) :: ub
14246 real(RKC) ,
intent(in) :: abstol
14247 real(RKC) ,
intent(in) :: reltol
14248 type(GK61_type) ,
intent(in) :: qrule
14249 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14250 real(RKC) ,
intent(out) :: integral, abserr
14251 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14252 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14253 integer(IK) ,
intent(out) :: neval
14254 integer(IK) ,
intent(out) :: nint
14260 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14262 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14265 procedure(
real(RKC)) :: getFunc
14266 real(RKC) ,
intent(in) :: lb
14267 type(pinf_type) ,
intent(in) :: ub
14268 real(RKC) ,
intent(in) :: abstol
14269 real(RKC) ,
intent(in) :: reltol
14270 type(GK61_type) ,
intent(in) :: qrule
14271 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14272 real(RKC) ,
intent(out) :: integral, abserr
14273 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14274 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14275 integer(IK) ,
intent(out) :: neval
14276 integer(IK) ,
intent(out) :: nint
14282 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14287 procedure(
real(RKC)) :: getFunc
14288 real(RKC) ,
intent(in) :: lb
14289 type(pinf_type) ,
intent(in) :: ub
14290 real(RKC) ,
intent(in) :: abstol
14291 real(RKC) ,
intent(in) :: reltol
14292 type(GK61_type) ,
intent(in) :: qrule
14293 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14294 real(RKC) ,
intent(out) :: integral, abserr
14295 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14296 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14297 integer(IK) ,
intent(out) :: neval
14298 integer(IK) ,
intent(out) :: nint
14304 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14309 procedure(
real(RKC)) :: getFunc
14310 real(RKC) ,
intent(in) :: lb
14311 type(pinf_type) ,
intent(in) :: ub
14312 real(RKC) ,
intent(in) :: abstol
14313 real(RKC) ,
intent(in) :: reltol
14314 type(GK61_type) ,
intent(in) :: qrule
14315 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14316 real(RKC) ,
intent(out) :: integral, abserr
14317 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14318 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14319 integer(IK) ,
intent(out) :: neval
14320 integer(IK) ,
intent(out) :: nint
14328 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14333 procedure(
real(RKC)) :: getFunc
14334 type(ninf_type) ,
intent(in) :: lb
14335 real(RKC) ,
intent(in) :: ub
14336 real(RKC) ,
intent(in) :: abstol
14337 real(RKC) ,
intent(in) :: reltol
14338 type(GK61_type) ,
intent(in) :: qrule
14339 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14340 real(RKC) ,
intent(out) :: integral, abserr
14341 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14342 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14343 integer(IK) ,
intent(out) :: neval
14344 integer(IK) ,
intent(out) :: nint
14350 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14355 procedure(
real(RKC)) :: getFunc
14356 type(ninf_type) ,
intent(in) :: lb
14357 real(RKC) ,
intent(in) :: ub
14358 real(RKC) ,
intent(in) :: abstol
14359 real(RKC) ,
intent(in) :: reltol
14360 type(GK61_type) ,
intent(in) :: qrule
14361 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14362 real(RKC) ,
intent(out) :: integral, abserr
14363 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14364 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14365 integer(IK) ,
intent(out) :: neval
14366 integer(IK) ,
intent(out) :: nint
14372 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14377 procedure(
real(RKC)) :: getFunc
14378 type(ninf_type) ,
intent(in) :: lb
14379 real(RKC) ,
intent(in) :: ub
14380 real(RKC) ,
intent(in) :: abstol
14381 real(RKC) ,
intent(in) :: reltol
14382 type(GK61_type) ,
intent(in) :: qrule
14383 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14384 real(RKC) ,
intent(out) :: integral, abserr
14385 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14386 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14387 integer(IK) ,
intent(out) :: neval
14388 integer(IK) ,
intent(out) :: nint
14394 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14399 procedure(
real(RKC)) :: getFunc
14400 type(ninf_type) ,
intent(in) :: lb
14401 real(RKC) ,
intent(in) :: ub
14402 real(RKC) ,
intent(in) :: abstol
14403 real(RKC) ,
intent(in) :: reltol
14404 type(GK61_type) ,
intent(in) :: qrule
14405 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14406 real(RKC) ,
intent(out) :: integral, abserr
14407 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14408 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14409 integer(IK) ,
intent(out) :: neval
14410 integer(IK) ,
intent(out) :: nint
14416 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14421 procedure(
real(RKC)) :: getFunc
14422 type(ninf_type) ,
intent(in) :: lb
14423 real(RKC) ,
intent(in) :: ub
14424 real(RKC) ,
intent(in) :: abstol
14425 real(RKC) ,
intent(in) :: reltol
14426 type(GK61_type) ,
intent(in) :: qrule
14427 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14428 real(RKC) ,
intent(out) :: integral, abserr
14429 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14430 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14431 integer(IK) ,
intent(out) :: neval
14432 integer(IK) ,
intent(out) :: nint
14440 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14445 procedure(
real(RKC)) :: getFunc
14446 type(ninf_type) ,
intent(in) :: lb
14447 type(pinf_type) ,
intent(in) :: ub
14448 real(RKC) ,
intent(in) :: abstol
14449 real(RKC) ,
intent(in) :: reltol
14450 type(GK61_type) ,
intent(in) :: qrule
14451 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14452 real(RKC) ,
intent(out) :: integral, abserr
14453 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14454 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14455 integer(IK) ,
intent(out) :: neval
14456 integer(IK) ,
intent(out) :: nint
14462 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14467 procedure(
real(RKC)) :: getFunc
14468 type(ninf_type) ,
intent(in) :: lb
14469 type(pinf_type) ,
intent(in) :: ub
14470 real(RKC) ,
intent(in) :: abstol
14471 real(RKC) ,
intent(in) :: reltol
14472 type(GK61_type) ,
intent(in) :: qrule
14473 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14474 real(RKC) ,
intent(out) :: integral, abserr
14475 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14476 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14477 integer(IK) ,
intent(out) :: neval
14478 integer(IK) ,
intent(out) :: nint
14484 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14489 procedure(
real(RKC)) :: getFunc
14490 type(ninf_type) ,
intent(in) :: lb
14491 type(pinf_type) ,
intent(in) :: ub
14492 real(RKC) ,
intent(in) :: abstol
14493 real(RKC) ,
intent(in) :: reltol
14494 type(GK61_type) ,
intent(in) :: qrule
14495 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14496 real(RKC) ,
intent(out) :: integral, abserr
14497 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14498 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14499 integer(IK) ,
intent(out) :: neval
14500 integer(IK) ,
intent(out) :: nint
14506 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14511 procedure(
real(RKC)) :: getFunc
14512 type(ninf_type) ,
intent(in) :: lb
14513 type(pinf_type) ,
intent(in) :: ub
14514 real(RKC) ,
intent(in) :: abstol
14515 real(RKC) ,
intent(in) :: reltol
14516 type(GK61_type) ,
intent(in) :: qrule
14517 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14518 real(RKC) ,
intent(out) :: integral, abserr
14519 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14520 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14521 integer(IK) ,
intent(out) :: neval
14522 integer(IK) ,
intent(out) :: nint
14528 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14533 procedure(
real(RKC)) :: getFunc
14534 type(ninf_type) ,
intent(in) :: lb
14535 type(pinf_type) ,
intent(in) :: ub
14536 real(RKC) ,
intent(in) :: abstol
14537 real(RKC) ,
intent(in) :: reltol
14538 type(GK61_type) ,
intent(in) :: qrule
14539 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14540 real(RKC) ,
intent(out) :: integral, abserr
14541 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14542 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14543 integer(IK) ,
intent(out) :: neval
14544 integer(IK) ,
intent(out) :: nint
14560 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14565 procedure(
real(RKC)) :: getFunc
14566 real(RKC) ,
intent(in) :: lb
14567 real(RKC) ,
intent(in) :: ub
14568 real(RKC) ,
intent(in) :: abstol
14569 real(RKC) ,
intent(in) :: reltol
14570 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14571 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14572 real(RKC) ,
intent(out) :: integral, abserr
14573 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14574 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14575 integer(IK) ,
intent(out) :: neval
14576 integer(IK) ,
intent(out) :: nint
14582 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14584 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14587 procedure(
real(RKC)) :: getFunc
14588 real(RKC) ,
intent(in) :: lb
14589 real(RKC) ,
intent(in) :: ub
14590 real(RKC) ,
intent(in) :: abstol
14591 real(RKC) ,
intent(in) :: reltol
14592 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14593 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14594 real(RKC) ,
intent(out) :: integral, abserr
14595 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14596 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14597 integer(IK) ,
intent(out) :: neval
14598 integer(IK) ,
intent(out) :: nint
14604 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14609 procedure(
real(RKC)) :: getFunc
14610 real(RKC) ,
intent(in) :: lb
14611 real(RKC) ,
intent(in) :: ub
14612 real(RKC) ,
intent(in) :: abstol
14613 real(RKC) ,
intent(in) :: reltol
14614 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14615 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14616 real(RKC) ,
intent(out) :: integral, abserr
14617 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14618 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14619 integer(IK) ,
intent(out) :: neval
14620 integer(IK) ,
intent(out) :: nint
14626 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14628 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14631 procedure(
real(RKC)) :: getFunc
14632 real(RKC) ,
intent(in) :: lb
14633 real(RKC) ,
intent(in) :: ub
14634 real(RKC) ,
intent(in) :: abstol
14635 real(RKC) ,
intent(in) :: reltol
14636 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14637 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14638 real(RKC) ,
intent(out) :: integral, abserr
14639 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14640 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14641 integer(IK) ,
intent(out) :: neval
14642 integer(IK) ,
intent(out) :: nint
14648 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14650 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14653 procedure(
real(RKC)) :: getFunc
14654 real(RKC) ,
intent(in) :: lb
14655 real(RKC) ,
intent(in) :: ub
14656 real(RKC) ,
intent(in) :: abstol
14657 real(RKC) ,
intent(in) :: reltol
14658 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14659 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14660 real(RKC) ,
intent(out) :: integral, abserr
14661 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14662 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14663 integer(IK) ,
intent(out) :: neval
14664 integer(IK) ,
intent(out) :: nint
14672 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14674 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14677 procedure(
real(RKC)) :: getFunc
14678 real(RKC) ,
intent(in) :: lb
14679 type(pinf_type) ,
intent(in) :: ub
14680 real(RKC) ,
intent(in) :: abstol
14681 real(RKC) ,
intent(in) :: reltol
14682 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14683 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14684 real(RKC) ,
intent(out) :: integral, abserr
14685 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14686 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14687 integer(IK) ,
intent(out) :: neval
14688 integer(IK) ,
intent(out) :: nint
14694 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14696 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14699 procedure(
real(RKC)) :: getFunc
14700 real(RKC) ,
intent(in) :: lb
14701 type(pinf_type) ,
intent(in) :: ub
14702 real(RKC) ,
intent(in) :: abstol
14703 real(RKC) ,
intent(in) :: reltol
14704 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14705 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14706 real(RKC) ,
intent(out) :: integral, abserr
14707 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14708 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14709 integer(IK) ,
intent(out) :: neval
14710 integer(IK) ,
intent(out) :: nint
14716 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14718 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14721 procedure(
real(RKC)) :: getFunc
14722 real(RKC) ,
intent(in) :: lb
14723 type(pinf_type) ,
intent(in) :: ub
14724 real(RKC) ,
intent(in) :: abstol
14725 real(RKC) ,
intent(in) :: reltol
14726 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14727 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14728 real(RKC) ,
intent(out) :: integral, abserr
14729 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14730 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14731 integer(IK) ,
intent(out) :: neval
14732 integer(IK) ,
intent(out) :: nint
14738 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14743 procedure(
real(RKC)) :: getFunc
14744 real(RKC) ,
intent(in) :: lb
14745 type(pinf_type) ,
intent(in) :: ub
14746 real(RKC) ,
intent(in) :: abstol
14747 real(RKC) ,
intent(in) :: reltol
14748 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14749 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14750 real(RKC) ,
intent(out) :: integral, abserr
14751 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14752 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14753 integer(IK) ,
intent(out) :: neval
14754 integer(IK) ,
intent(out) :: nint
14760 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14765 procedure(
real(RKC)) :: getFunc
14766 real(RKC) ,
intent(in) :: lb
14767 type(pinf_type) ,
intent(in) :: ub
14768 real(RKC) ,
intent(in) :: abstol
14769 real(RKC) ,
intent(in) :: reltol
14770 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14771 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14772 real(RKC) ,
intent(out) :: integral, abserr
14773 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14774 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14775 integer(IK) ,
intent(out) :: neval
14776 integer(IK) ,
intent(out) :: nint
14784 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14789 procedure(
real(RKC)) :: getFunc
14790 type(ninf_type) ,
intent(in) :: lb
14791 real(RKC) ,
intent(in) :: ub
14792 real(RKC) ,
intent(in) :: abstol
14793 real(RKC) ,
intent(in) :: reltol
14794 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14795 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14796 real(RKC) ,
intent(out) :: integral, abserr
14797 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14798 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14799 integer(IK) ,
intent(out) :: neval
14800 integer(IK) ,
intent(out) :: nint
14806 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14811 procedure(
real(RKC)) :: getFunc
14812 type(ninf_type) ,
intent(in) :: lb
14813 real(RKC) ,
intent(in) :: ub
14814 real(RKC) ,
intent(in) :: abstol
14815 real(RKC) ,
intent(in) :: reltol
14816 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14817 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14818 real(RKC) ,
intent(out) :: integral, abserr
14819 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14820 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14821 integer(IK) ,
intent(out) :: neval
14822 integer(IK) ,
intent(out) :: nint
14828 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14833 procedure(
real(RKC)) :: getFunc
14834 type(ninf_type) ,
intent(in) :: lb
14835 real(RKC) ,
intent(in) :: ub
14836 real(RKC) ,
intent(in) :: abstol
14837 real(RKC) ,
intent(in) :: reltol
14838 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14839 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14840 real(RKC) ,
intent(out) :: integral, abserr
14841 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14842 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14843 integer(IK) ,
intent(out) :: neval
14844 integer(IK) ,
intent(out) :: nint
14850 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14855 procedure(
real(RKC)) :: getFunc
14856 type(ninf_type) ,
intent(in) :: lb
14857 real(RKC) ,
intent(in) :: ub
14858 real(RKC) ,
intent(in) :: abstol
14859 real(RKC) ,
intent(in) :: reltol
14860 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14861 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14862 real(RKC) ,
intent(out) :: integral, abserr
14863 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14864 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14865 integer(IK) ,
intent(out) :: neval
14866 integer(IK) ,
intent(out) :: nint
14872 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14877 procedure(
real(RKC)) :: getFunc
14878 type(ninf_type) ,
intent(in) :: lb
14879 real(RKC) ,
intent(in) :: ub
14880 real(RKC) ,
intent(in) :: abstol
14881 real(RKC) ,
intent(in) :: reltol
14882 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14883 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14884 real(RKC) ,
intent(out) :: integral, abserr
14885 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14886 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14887 integer(IK) ,
intent(out) :: neval
14888 integer(IK) ,
intent(out) :: nint
14896 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14901 procedure(
real(RKC)) :: getFunc
14902 type(ninf_type) ,
intent(in) :: lb
14903 type(pinf_type) ,
intent(in) :: ub
14904 real(RKC) ,
intent(in) :: abstol
14905 real(RKC) ,
intent(in) :: reltol
14906 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14907 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14908 real(RKC) ,
intent(out) :: integral, abserr
14909 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14910 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14911 integer(IK) ,
intent(out) :: neval
14912 integer(IK) ,
intent(out) :: nint
14918 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14923 procedure(
real(RKC)) :: getFunc
14924 type(ninf_type) ,
intent(in) :: lb
14925 type(pinf_type) ,
intent(in) :: ub
14926 real(RKC) ,
intent(in) :: abstol
14927 real(RKC) ,
intent(in) :: reltol
14928 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14929 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14930 real(RKC) ,
intent(out) :: integral, abserr
14931 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14932 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14933 integer(IK) ,
intent(out) :: neval
14934 integer(IK) ,
intent(out) :: nint
14940 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
14945 procedure(
real(RKC)) :: getFunc
14946 type(ninf_type) ,
intent(in) :: lb
14947 type(pinf_type) ,
intent(in) :: ub
14948 real(RKC) ,
intent(in) :: abstol
14949 real(RKC) ,
intent(in) :: reltol
14950 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14951 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14952 real(RKC) ,
intent(out) :: integral, abserr
14953 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14954 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14955 integer(IK) ,
intent(out) :: neval
14956 integer(IK) ,
intent(out) :: nint
14962 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
14967 procedure(
real(RKC)) :: getFunc
14968 type(ninf_type) ,
intent(in) :: lb
14969 type(pinf_type) ,
intent(in) :: ub
14970 real(RKC) ,
intent(in) :: abstol
14971 real(RKC) ,
intent(in) :: reltol
14972 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14973 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14974 real(RKC) ,
intent(out) :: integral, abserr
14975 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14976 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14977 integer(IK) ,
intent(out) :: neval
14978 integer(IK) ,
intent(out) :: nint
14984 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
14985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
14989 procedure(
real(RKC)) :: getFunc
14990 type(ninf_type) ,
intent(in) :: lb
14991 type(pinf_type) ,
intent(in) :: ub
14992 real(RKC) ,
intent(in) :: abstol
14993 real(RKC) ,
intent(in) :: reltol
14994 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
14995 real(RKC) ,
intent(in) ,
contiguous :: help(:)
14996 real(RKC) ,
intent(out) :: integral, abserr
14997 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
14998 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
14999 integer(IK) ,
intent(out) :: neval
15000 integer(IK) ,
intent(out) :: nint
15018 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15020 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15023 procedure(
real(RKC)) :: getFunc
15024 real(RKC) ,
intent(in) :: lb
15025 real(RKC) ,
intent(in) :: ub
15026 real(RKC) ,
intent(in) :: abstol
15027 real(RKC) ,
intent(in) :: reltol
15028 type(GK15_type) ,
intent(in) :: qrule
15029 type(wcauchy_type) ,
intent(in) :: help
15030 real(RKC) ,
intent(out) :: integral, abserr
15031 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15032 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15033 integer(IK) ,
intent(out) :: neval
15034 integer(IK) ,
intent(out) :: nint
15040 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15042 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15045 procedure(
real(RKC)) :: getFunc
15046 real(RKC) ,
intent(in) :: lb
15047 real(RKC) ,
intent(in) :: ub
15048 real(RKC) ,
intent(in) :: abstol
15049 real(RKC) ,
intent(in) :: reltol
15050 type(GK15_type) ,
intent(in) :: qrule
15051 type(wcauchy_type) ,
intent(in) :: help
15052 real(RKC) ,
intent(out) :: integral, abserr
15053 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15054 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15055 integer(IK) ,
intent(out) :: neval
15056 integer(IK) ,
intent(out) :: nint
15062 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15063#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15064 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15067 procedure(
real(RKC)) :: getFunc
15068 real(RKC) ,
intent(in) :: lb
15069 real(RKC) ,
intent(in) :: ub
15070 real(RKC) ,
intent(in) :: abstol
15071 real(RKC) ,
intent(in) :: reltol
15072 type(GK15_type) ,
intent(in) :: qrule
15073 type(wcauchy_type) ,
intent(in) :: help
15074 real(RKC) ,
intent(out) :: integral, abserr
15075 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15076 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15077 integer(IK) ,
intent(out) :: neval
15078 integer(IK) ,
intent(out) :: nint
15084 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15086 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15089 procedure(
real(RKC)) :: getFunc
15090 real(RKC) ,
intent(in) :: lb
15091 real(RKC) ,
intent(in) :: ub
15092 real(RKC) ,
intent(in) :: abstol
15093 real(RKC) ,
intent(in) :: reltol
15094 type(GK15_type) ,
intent(in) :: qrule
15095 type(wcauchy_type) ,
intent(in) :: help
15096 real(RKC) ,
intent(out) :: integral, abserr
15097 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15098 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15099 integer(IK) ,
intent(out) :: neval
15100 integer(IK) ,
intent(out) :: nint
15106 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15108 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15111 procedure(
real(RKC)) :: getFunc
15112 real(RKC) ,
intent(in) :: lb
15113 real(RKC) ,
intent(in) :: ub
15114 real(RKC) ,
intent(in) :: abstol
15115 real(RKC) ,
intent(in) :: reltol
15116 type(GK15_type) ,
intent(in) :: qrule
15117 type(wcauchy_type) ,
intent(in) :: help
15118 real(RKC) ,
intent(out) :: integral, abserr
15119 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15120 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15121 integer(IK) ,
intent(out) :: neval
15122 integer(IK) ,
intent(out) :: nint
15130 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15132 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15135 procedure(
real(RKC)) :: getFunc
15136 real(RKC) ,
intent(in) :: lb
15137 real(RKC) ,
intent(in) :: ub
15138 real(RKC) ,
intent(in) :: abstol
15139 real(RKC) ,
intent(in) :: reltol
15140 type(GK21_type) ,
intent(in) :: qrule
15141 type(wcauchy_type) ,
intent(in) :: help
15142 real(RKC) ,
intent(out) :: integral, abserr
15143 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15144 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15145 integer(IK) ,
intent(out) :: neval
15146 integer(IK) ,
intent(out) :: nint
15152 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15153#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15154 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15157 procedure(
real(RKC)) :: getFunc
15158 real(RKC) ,
intent(in) :: lb
15159 real(RKC) ,
intent(in) :: ub
15160 real(RKC) ,
intent(in) :: abstol
15161 real(RKC) ,
intent(in) :: reltol
15162 type(GK21_type) ,
intent(in) :: qrule
15163 type(wcauchy_type) ,
intent(in) :: help
15164 real(RKC) ,
intent(out) :: integral, abserr
15165 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15166 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15167 integer(IK) ,
intent(out) :: neval
15168 integer(IK) ,
intent(out) :: nint
15174 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15176 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15179 procedure(
real(RKC)) :: getFunc
15180 real(RKC) ,
intent(in) :: lb
15181 real(RKC) ,
intent(in) :: ub
15182 real(RKC) ,
intent(in) :: abstol
15183 real(RKC) ,
intent(in) :: reltol
15184 type(GK21_type) ,
intent(in) :: qrule
15185 type(wcauchy_type) ,
intent(in) :: help
15186 real(RKC) ,
intent(out) :: integral, abserr
15187 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15188 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15189 integer(IK) ,
intent(out) :: neval
15190 integer(IK) ,
intent(out) :: nint
15196 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15198 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15201 procedure(
real(RKC)) :: getFunc
15202 real(RKC) ,
intent(in) :: lb
15203 real(RKC) ,
intent(in) :: ub
15204 real(RKC) ,
intent(in) :: abstol
15205 real(RKC) ,
intent(in) :: reltol
15206 type(GK21_type) ,
intent(in) :: qrule
15207 type(wcauchy_type) ,
intent(in) :: help
15208 real(RKC) ,
intent(out) :: integral, abserr
15209 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15210 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15211 integer(IK) ,
intent(out) :: neval
15212 integer(IK) ,
intent(out) :: nint
15218 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15220 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15223 procedure(
real(RKC)) :: getFunc
15224 real(RKC) ,
intent(in) :: lb
15225 real(RKC) ,
intent(in) :: ub
15226 real(RKC) ,
intent(in) :: abstol
15227 real(RKC) ,
intent(in) :: reltol
15228 type(GK21_type) ,
intent(in) :: qrule
15229 type(wcauchy_type) ,
intent(in) :: help
15230 real(RKC) ,
intent(out) :: integral, abserr
15231 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15232 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15233 integer(IK) ,
intent(out) :: neval
15234 integer(IK) ,
intent(out) :: nint
15242 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15244 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15247 procedure(
real(RKC)) :: getFunc
15248 real(RKC) ,
intent(in) :: lb
15249 real(RKC) ,
intent(in) :: ub
15250 real(RKC) ,
intent(in) :: abstol
15251 real(RKC) ,
intent(in) :: reltol
15252 type(GK31_type) ,
intent(in) :: qrule
15253 type(wcauchy_type) ,
intent(in) :: help
15254 real(RKC) ,
intent(out) :: integral, abserr
15255 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15256 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15257 integer(IK) ,
intent(out) :: neval
15258 integer(IK) ,
intent(out) :: nint
15264 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15266 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15269 procedure(
real(RKC)) :: getFunc
15270 real(RKC) ,
intent(in) :: lb
15271 real(RKC) ,
intent(in) :: ub
15272 real(RKC) ,
intent(in) :: abstol
15273 real(RKC) ,
intent(in) :: reltol
15274 type(GK31_type) ,
intent(in) :: qrule
15275 type(wcauchy_type) ,
intent(in) :: help
15276 real(RKC) ,
intent(out) :: integral, abserr
15277 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15278 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15279 integer(IK) ,
intent(out) :: neval
15280 integer(IK) ,
intent(out) :: nint
15286 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15288 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15291 procedure(
real(RKC)) :: getFunc
15292 real(RKC) ,
intent(in) :: lb
15293 real(RKC) ,
intent(in) :: ub
15294 real(RKC) ,
intent(in) :: abstol
15295 real(RKC) ,
intent(in) :: reltol
15296 type(GK31_type) ,
intent(in) :: qrule
15297 type(wcauchy_type) ,
intent(in) :: help
15298 real(RKC) ,
intent(out) :: integral, abserr
15299 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15300 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15301 integer(IK) ,
intent(out) :: neval
15302 integer(IK) ,
intent(out) :: nint
15308 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15310 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15313 procedure(
real(RKC)) :: getFunc
15314 real(RKC) ,
intent(in) :: lb
15315 real(RKC) ,
intent(in) :: ub
15316 real(RKC) ,
intent(in) :: abstol
15317 real(RKC) ,
intent(in) :: reltol
15318 type(GK31_type) ,
intent(in) :: qrule
15319 type(wcauchy_type) ,
intent(in) :: help
15320 real(RKC) ,
intent(out) :: integral, abserr
15321 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15322 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15323 integer(IK) ,
intent(out) :: neval
15324 integer(IK) ,
intent(out) :: nint
15330 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15332 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15335 procedure(
real(RKC)) :: getFunc
15336 real(RKC) ,
intent(in) :: lb
15337 real(RKC) ,
intent(in) :: ub
15338 real(RKC) ,
intent(in) :: abstol
15339 real(RKC) ,
intent(in) :: reltol
15340 type(GK31_type) ,
intent(in) :: qrule
15341 type(wcauchy_type) ,
intent(in) :: help
15342 real(RKC) ,
intent(out) :: integral, abserr
15343 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15344 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15345 integer(IK) ,
intent(out) :: neval
15346 integer(IK) ,
intent(out) :: nint
15354 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15356 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15359 procedure(
real(RKC)) :: getFunc
15360 real(RKC) ,
intent(in) :: lb
15361 real(RKC) ,
intent(in) :: ub
15362 real(RKC) ,
intent(in) :: abstol
15363 real(RKC) ,
intent(in) :: reltol
15364 type(GK41_type) ,
intent(in) :: qrule
15365 type(wcauchy_type) ,
intent(in) :: help
15366 real(RKC) ,
intent(out) :: integral, abserr
15367 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15368 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15369 integer(IK) ,
intent(out) :: neval
15370 integer(IK) ,
intent(out) :: nint
15376 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15378 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15381 procedure(
real(RKC)) :: getFunc
15382 real(RKC) ,
intent(in) :: lb
15383 real(RKC) ,
intent(in) :: ub
15384 real(RKC) ,
intent(in) :: abstol
15385 real(RKC) ,
intent(in) :: reltol
15386 type(GK41_type) ,
intent(in) :: qrule
15387 type(wcauchy_type) ,
intent(in) :: help
15388 real(RKC) ,
intent(out) :: integral, abserr
15389 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15390 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15391 integer(IK) ,
intent(out) :: neval
15392 integer(IK) ,
intent(out) :: nint
15398 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15400 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15403 procedure(
real(RKC)) :: getFunc
15404 real(RKC) ,
intent(in) :: lb
15405 real(RKC) ,
intent(in) :: ub
15406 real(RKC) ,
intent(in) :: abstol
15407 real(RKC) ,
intent(in) :: reltol
15408 type(GK41_type) ,
intent(in) :: qrule
15409 type(wcauchy_type) ,
intent(in) :: help
15410 real(RKC) ,
intent(out) :: integral, abserr
15411 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15412 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15413 integer(IK) ,
intent(out) :: neval
15414 integer(IK) ,
intent(out) :: nint
15420 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15422 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15425 procedure(
real(RKC)) :: getFunc
15426 real(RKC) ,
intent(in) :: lb
15427 real(RKC) ,
intent(in) :: ub
15428 real(RKC) ,
intent(in) :: abstol
15429 real(RKC) ,
intent(in) :: reltol
15430 type(GK41_type) ,
intent(in) :: qrule
15431 type(wcauchy_type) ,
intent(in) :: help
15432 real(RKC) ,
intent(out) :: integral, abserr
15433 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15434 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15435 integer(IK) ,
intent(out) :: neval
15436 integer(IK) ,
intent(out) :: nint
15442 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15444 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15447 procedure(
real(RKC)) :: getFunc
15448 real(RKC) ,
intent(in) :: lb
15449 real(RKC) ,
intent(in) :: ub
15450 real(RKC) ,
intent(in) :: abstol
15451 real(RKC) ,
intent(in) :: reltol
15452 type(GK41_type) ,
intent(in) :: qrule
15453 type(wcauchy_type) ,
intent(in) :: help
15454 real(RKC) ,
intent(out) :: integral, abserr
15455 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15456 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15457 integer(IK) ,
intent(out) :: neval
15458 integer(IK) ,
intent(out) :: nint
15466 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15468 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15471 procedure(
real(RKC)) :: getFunc
15472 real(RKC) ,
intent(in) :: lb
15473 real(RKC) ,
intent(in) :: ub
15474 real(RKC) ,
intent(in) :: abstol
15475 real(RKC) ,
intent(in) :: reltol
15476 type(GK51_type) ,
intent(in) :: qrule
15477 type(wcauchy_type) ,
intent(in) :: help
15478 real(RKC) ,
intent(out) :: integral, abserr
15479 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15480 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15481 integer(IK) ,
intent(out) :: neval
15482 integer(IK) ,
intent(out) :: nint
15488 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15489#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15490 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15493 procedure(
real(RKC)) :: getFunc
15494 real(RKC) ,
intent(in) :: lb
15495 real(RKC) ,
intent(in) :: ub
15496 real(RKC) ,
intent(in) :: abstol
15497 real(RKC) ,
intent(in) :: reltol
15498 type(GK51_type) ,
intent(in) :: qrule
15499 type(wcauchy_type) ,
intent(in) :: help
15500 real(RKC) ,
intent(out) :: integral, abserr
15501 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15502 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15503 integer(IK) ,
intent(out) :: neval
15504 integer(IK) ,
intent(out) :: nint
15510 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15512 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15515 procedure(
real(RKC)) :: getFunc
15516 real(RKC) ,
intent(in) :: lb
15517 real(RKC) ,
intent(in) :: ub
15518 real(RKC) ,
intent(in) :: abstol
15519 real(RKC) ,
intent(in) :: reltol
15520 type(GK51_type) ,
intent(in) :: qrule
15521 type(wcauchy_type) ,
intent(in) :: help
15522 real(RKC) ,
intent(out) :: integral, abserr
15523 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15524 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15525 integer(IK) ,
intent(out) :: neval
15526 integer(IK) ,
intent(out) :: nint
15532 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15534 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15537 procedure(
real(RKC)) :: getFunc
15538 real(RKC) ,
intent(in) :: lb
15539 real(RKC) ,
intent(in) :: ub
15540 real(RKC) ,
intent(in) :: abstol
15541 real(RKC) ,
intent(in) :: reltol
15542 type(GK51_type) ,
intent(in) :: qrule
15543 type(wcauchy_type) ,
intent(in) :: help
15544 real(RKC) ,
intent(out) :: integral, abserr
15545 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15546 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15547 integer(IK) ,
intent(out) :: neval
15548 integer(IK) ,
intent(out) :: nint
15554 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15556 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15559 procedure(
real(RKC)) :: getFunc
15560 real(RKC) ,
intent(in) :: lb
15561 real(RKC) ,
intent(in) :: ub
15562 real(RKC) ,
intent(in) :: abstol
15563 real(RKC) ,
intent(in) :: reltol
15564 type(GK51_type) ,
intent(in) :: qrule
15565 type(wcauchy_type) ,
intent(in) :: help
15566 real(RKC) ,
intent(out) :: integral, abserr
15567 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15568 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15569 integer(IK) ,
intent(out) :: neval
15570 integer(IK) ,
intent(out) :: nint
15578 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15580 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15583 procedure(
real(RKC)) :: getFunc
15584 real(RKC) ,
intent(in) :: lb
15585 real(RKC) ,
intent(in) :: ub
15586 real(RKC) ,
intent(in) :: abstol
15587 real(RKC) ,
intent(in) :: reltol
15588 type(GK61_type) ,
intent(in) :: qrule
15589 type(wcauchy_type) ,
intent(in) :: help
15590 real(RKC) ,
intent(out) :: integral, abserr
15591 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15592 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15593 integer(IK) ,
intent(out) :: neval
15594 integer(IK) ,
intent(out) :: nint
15600 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15602 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15605 procedure(
real(RKC)) :: getFunc
15606 real(RKC) ,
intent(in) :: lb
15607 real(RKC) ,
intent(in) :: ub
15608 real(RKC) ,
intent(in) :: abstol
15609 real(RKC) ,
intent(in) :: reltol
15610 type(GK61_type) ,
intent(in) :: qrule
15611 type(wcauchy_type) ,
intent(in) :: help
15612 real(RKC) ,
intent(out) :: integral, abserr
15613 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15614 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15615 integer(IK) ,
intent(out) :: neval
15616 integer(IK) ,
intent(out) :: nint
15622 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15624 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15627 procedure(
real(RKC)) :: getFunc
15628 real(RKC) ,
intent(in) :: lb
15629 real(RKC) ,
intent(in) :: ub
15630 real(RKC) ,
intent(in) :: abstol
15631 real(RKC) ,
intent(in) :: reltol
15632 type(GK61_type) ,
intent(in) :: qrule
15633 type(wcauchy_type) ,
intent(in) :: help
15634 real(RKC) ,
intent(out) :: integral, abserr
15635 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15636 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15637 integer(IK) ,
intent(out) :: neval
15638 integer(IK) ,
intent(out) :: nint
15644 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15646 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15649 procedure(
real(RKC)) :: getFunc
15650 real(RKC) ,
intent(in) :: lb
15651 real(RKC) ,
intent(in) :: ub
15652 real(RKC) ,
intent(in) :: abstol
15653 real(RKC) ,
intent(in) :: reltol
15654 type(GK61_type) ,
intent(in) :: qrule
15655 type(wcauchy_type) ,
intent(in) :: help
15656 real(RKC) ,
intent(out) :: integral, abserr
15657 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15658 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15659 integer(IK) ,
intent(out) :: neval
15660 integer(IK) ,
intent(out) :: nint
15666 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15668 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15671 procedure(
real(RKC)) :: getFunc
15672 real(RKC) ,
intent(in) :: lb
15673 real(RKC) ,
intent(in) :: ub
15674 real(RKC) ,
intent(in) :: abstol
15675 real(RKC) ,
intent(in) :: reltol
15676 type(GK61_type) ,
intent(in) :: qrule
15677 type(wcauchy_type) ,
intent(in) :: help
15678 real(RKC) ,
intent(out) :: integral, abserr
15679 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15680 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15681 integer(IK) ,
intent(out) :: neval
15682 integer(IK) ,
intent(out) :: nint
15690 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15692 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15695 procedure(
real(RKC)) :: getFunc
15696 real(RKC) ,
intent(in) :: lb
15697 real(RKC) ,
intent(in) :: ub
15698 real(RKC) ,
intent(in) :: abstol
15699 real(RKC) ,
intent(in) :: reltol
15700 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15701 type(wcauchy_type) ,
intent(in) :: help
15702 real(RKC) ,
intent(out) :: integral, abserr
15703 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15704 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15705 integer(IK) ,
intent(out) :: neval
15706 integer(IK) ,
intent(out) :: nint
15712 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15713#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15714 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15717 procedure(
real(RKC)) :: getFunc
15718 real(RKC) ,
intent(in) :: lb
15719 real(RKC) ,
intent(in) :: ub
15720 real(RKC) ,
intent(in) :: abstol
15721 real(RKC) ,
intent(in) :: reltol
15722 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15723 type(wcauchy_type) ,
intent(in) :: help
15724 real(RKC) ,
intent(out) :: integral, abserr
15725 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15726 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15727 integer(IK) ,
intent(out) :: neval
15728 integer(IK) ,
intent(out) :: nint
15734 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15735#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15736 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15739 procedure(
real(RKC)) :: getFunc
15740 real(RKC) ,
intent(in) :: lb
15741 real(RKC) ,
intent(in) :: ub
15742 real(RKC) ,
intent(in) :: abstol
15743 real(RKC) ,
intent(in) :: reltol
15744 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15745 type(wcauchy_type) ,
intent(in) :: help
15746 real(RKC) ,
intent(out) :: integral, abserr
15747 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15748 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15749 integer(IK) ,
intent(out) :: neval
15750 integer(IK) ,
intent(out) :: nint
15756 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15757#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15758 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15761 procedure(
real(RKC)) :: getFunc
15762 real(RKC) ,
intent(in) :: lb
15763 real(RKC) ,
intent(in) :: ub
15764 real(RKC) ,
intent(in) :: abstol
15765 real(RKC) ,
intent(in) :: reltol
15766 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15767 type(wcauchy_type) ,
intent(in) :: help
15768 real(RKC) ,
intent(out) :: integral, abserr
15769 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15770 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15771 integer(IK) ,
intent(out) :: neval
15772 integer(IK) ,
intent(out) :: nint
15778 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15780 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15783 procedure(
real(RKC)) :: getFunc
15784 real(RKC) ,
intent(in) :: lb
15785 real(RKC) ,
intent(in) :: ub
15786 real(RKC) ,
intent(in) :: abstol
15787 real(RKC) ,
intent(in) :: reltol
15788 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
15789 type(wcauchy_type) ,
intent(in) :: help
15790 real(RKC) ,
intent(out) :: integral, abserr
15791 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15792 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15793 integer(IK) ,
intent(out) :: neval
15794 integer(IK) ,
intent(out) :: nint
15810 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15812 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15815 procedure(
real(RKC)) :: getFunc
15816 real(RKC) ,
intent(in) :: lb
15817 type(pinf_type) ,
intent(in) :: ub
15818 real(RKC) ,
intent(in) :: abstol
15819 real(RKC) ,
intent(in) :: reltol
15820 type(GK15_type) ,
intent(in) :: qrule
15821 type(wcauchy_type) ,
intent(in) :: help
15822 real(RKC) ,
intent(out) :: integral, abserr
15823 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15824 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15825 integer(IK) ,
intent(out) :: neval
15826 integer(IK) ,
intent(out) :: nint
15832 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15834 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15837 procedure(
real(RKC)) :: getFunc
15838 real(RKC) ,
intent(in) :: lb
15839 type(pinf_type) ,
intent(in) :: ub
15840 real(RKC) ,
intent(in) :: abstol
15841 real(RKC) ,
intent(in) :: reltol
15842 type(GK15_type) ,
intent(in) :: qrule
15843 type(wcauchy_type) ,
intent(in) :: help
15844 real(RKC) ,
intent(out) :: integral, abserr
15845 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15846 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15847 integer(IK) ,
intent(out) :: neval
15848 integer(IK) ,
intent(out) :: nint
15854 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15856 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15859 procedure(
real(RKC)) :: getFunc
15860 real(RKC) ,
intent(in) :: lb
15861 type(pinf_type) ,
intent(in) :: ub
15862 real(RKC) ,
intent(in) :: abstol
15863 real(RKC) ,
intent(in) :: reltol
15864 type(GK15_type) ,
intent(in) :: qrule
15865 type(wcauchy_type) ,
intent(in) :: help
15866 real(RKC) ,
intent(out) :: integral, abserr
15867 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15868 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15869 integer(IK) ,
intent(out) :: neval
15870 integer(IK) ,
intent(out) :: nint
15876 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15878 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15881 procedure(
real(RKC)) :: getFunc
15882 real(RKC) ,
intent(in) :: lb
15883 type(pinf_type) ,
intent(in) :: ub
15884 real(RKC) ,
intent(in) :: abstol
15885 real(RKC) ,
intent(in) :: reltol
15886 type(GK15_type) ,
intent(in) :: qrule
15887 type(wcauchy_type) ,
intent(in) :: help
15888 real(RKC) ,
intent(out) :: integral, abserr
15889 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15890 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15891 integer(IK) ,
intent(out) :: neval
15892 integer(IK) ,
intent(out) :: nint
15898 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15900 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15903 procedure(
real(RKC)) :: getFunc
15904 real(RKC) ,
intent(in) :: lb
15905 type(pinf_type) ,
intent(in) :: ub
15906 real(RKC) ,
intent(in) :: abstol
15907 real(RKC) ,
intent(in) :: reltol
15908 type(GK15_type) ,
intent(in) :: qrule
15909 type(wcauchy_type) ,
intent(in) :: help
15910 real(RKC) ,
intent(out) :: integral, abserr
15911 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15912 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15913 integer(IK) ,
intent(out) :: neval
15914 integer(IK) ,
intent(out) :: nint
15922 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15924 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15927 procedure(
real(RKC)) :: getFunc
15928 real(RKC) ,
intent(in) :: lb
15929 type(pinf_type) ,
intent(in) :: ub
15930 real(RKC) ,
intent(in) :: abstol
15931 real(RKC) ,
intent(in) :: reltol
15932 type(GK21_type) ,
intent(in) :: qrule
15933 type(wcauchy_type) ,
intent(in) :: help
15934 real(RKC) ,
intent(out) :: integral, abserr
15935 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15936 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15937 integer(IK) ,
intent(out) :: neval
15938 integer(IK) ,
intent(out) :: nint
15944 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15946 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
15949 procedure(
real(RKC)) :: getFunc
15950 real(RKC) ,
intent(in) :: lb
15951 type(pinf_type) ,
intent(in) :: ub
15952 real(RKC) ,
intent(in) :: abstol
15953 real(RKC) ,
intent(in) :: reltol
15954 type(GK21_type) ,
intent(in) :: qrule
15955 type(wcauchy_type) ,
intent(in) :: help
15956 real(RKC) ,
intent(out) :: integral, abserr
15957 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15958 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15959 integer(IK) ,
intent(out) :: neval
15960 integer(IK) ,
intent(out) :: nint
15966 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15968 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
15971 procedure(
real(RKC)) :: getFunc
15972 real(RKC) ,
intent(in) :: lb
15973 type(pinf_type) ,
intent(in) :: ub
15974 real(RKC) ,
intent(in) :: abstol
15975 real(RKC) ,
intent(in) :: reltol
15976 type(GK21_type) ,
intent(in) :: qrule
15977 type(wcauchy_type) ,
intent(in) :: help
15978 real(RKC) ,
intent(out) :: integral, abserr
15979 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
15980 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
15981 integer(IK) ,
intent(out) :: neval
15982 integer(IK) ,
intent(out) :: nint
15988 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
15989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15990 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
15993 procedure(
real(RKC)) :: getFunc
15994 real(RKC) ,
intent(in) :: lb
15995 type(pinf_type) ,
intent(in) :: ub
15996 real(RKC) ,
intent(in) :: abstol
15997 real(RKC) ,
intent(in) :: reltol
15998 type(GK21_type) ,
intent(in) :: qrule
15999 type(wcauchy_type) ,
intent(in) :: help
16000 real(RKC) ,
intent(out) :: integral, abserr
16001 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16002 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16003 integer(IK) ,
intent(out) :: neval
16004 integer(IK) ,
intent(out) :: nint
16010 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16012 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16015 procedure(
real(RKC)) :: getFunc
16016 real(RKC) ,
intent(in) :: lb
16017 type(pinf_type) ,
intent(in) :: ub
16018 real(RKC) ,
intent(in) :: abstol
16019 real(RKC) ,
intent(in) :: reltol
16020 type(GK21_type) ,
intent(in) :: qrule
16021 type(wcauchy_type) ,
intent(in) :: help
16022 real(RKC) ,
intent(out) :: integral, abserr
16023 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16024 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16025 integer(IK) ,
intent(out) :: neval
16026 integer(IK) ,
intent(out) :: nint
16034 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16036 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16039 procedure(
real(RKC)) :: getFunc
16040 real(RKC) ,
intent(in) :: lb
16041 type(pinf_type) ,
intent(in) :: ub
16042 real(RKC) ,
intent(in) :: abstol
16043 real(RKC) ,
intent(in) :: reltol
16044 type(GK31_type) ,
intent(in) :: qrule
16045 type(wcauchy_type) ,
intent(in) :: help
16046 real(RKC) ,
intent(out) :: integral, abserr
16047 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16048 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16049 integer(IK) ,
intent(out) :: neval
16050 integer(IK) ,
intent(out) :: nint
16056 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16058 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16061 procedure(
real(RKC)) :: getFunc
16062 real(RKC) ,
intent(in) :: lb
16063 type(pinf_type) ,
intent(in) :: ub
16064 real(RKC) ,
intent(in) :: abstol
16065 real(RKC) ,
intent(in) :: reltol
16066 type(GK31_type) ,
intent(in) :: qrule
16067 type(wcauchy_type) ,
intent(in) :: help
16068 real(RKC) ,
intent(out) :: integral, abserr
16069 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16070 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16071 integer(IK) ,
intent(out) :: neval
16072 integer(IK) ,
intent(out) :: nint
16078 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16080 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16083 procedure(
real(RKC)) :: getFunc
16084 real(RKC) ,
intent(in) :: lb
16085 type(pinf_type) ,
intent(in) :: ub
16086 real(RKC) ,
intent(in) :: abstol
16087 real(RKC) ,
intent(in) :: reltol
16088 type(GK31_type) ,
intent(in) :: qrule
16089 type(wcauchy_type) ,
intent(in) :: help
16090 real(RKC) ,
intent(out) :: integral, abserr
16091 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16092 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16093 integer(IK) ,
intent(out) :: neval
16094 integer(IK) ,
intent(out) :: nint
16100 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16102 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16105 procedure(
real(RKC)) :: getFunc
16106 real(RKC) ,
intent(in) :: lb
16107 type(pinf_type) ,
intent(in) :: ub
16108 real(RKC) ,
intent(in) :: abstol
16109 real(RKC) ,
intent(in) :: reltol
16110 type(GK31_type) ,
intent(in) :: qrule
16111 type(wcauchy_type) ,
intent(in) :: help
16112 real(RKC) ,
intent(out) :: integral, abserr
16113 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16114 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16115 integer(IK) ,
intent(out) :: neval
16116 integer(IK) ,
intent(out) :: nint
16122 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16124 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16127 procedure(
real(RKC)) :: getFunc
16128 real(RKC) ,
intent(in) :: lb
16129 type(pinf_type) ,
intent(in) :: ub
16130 real(RKC) ,
intent(in) :: abstol
16131 real(RKC) ,
intent(in) :: reltol
16132 type(GK31_type) ,
intent(in) :: qrule
16133 type(wcauchy_type) ,
intent(in) :: help
16134 real(RKC) ,
intent(out) :: integral, abserr
16135 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16136 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16137 integer(IK) ,
intent(out) :: neval
16138 integer(IK) ,
intent(out) :: nint
16146 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16148 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16151 procedure(
real(RKC)) :: getFunc
16152 real(RKC) ,
intent(in) :: lb
16153 type(pinf_type) ,
intent(in) :: ub
16154 real(RKC) ,
intent(in) :: abstol
16155 real(RKC) ,
intent(in) :: reltol
16156 type(GK41_type) ,
intent(in) :: qrule
16157 type(wcauchy_type) ,
intent(in) :: help
16158 real(RKC) ,
intent(out) :: integral, abserr
16159 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16160 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16161 integer(IK) ,
intent(out) :: neval
16162 integer(IK) ,
intent(out) :: nint
16168 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16170 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16173 procedure(
real(RKC)) :: getFunc
16174 real(RKC) ,
intent(in) :: lb
16175 type(pinf_type) ,
intent(in) :: ub
16176 real(RKC) ,
intent(in) :: abstol
16177 real(RKC) ,
intent(in) :: reltol
16178 type(GK41_type) ,
intent(in) :: qrule
16179 type(wcauchy_type) ,
intent(in) :: help
16180 real(RKC) ,
intent(out) :: integral, abserr
16181 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16182 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16183 integer(IK) ,
intent(out) :: neval
16184 integer(IK) ,
intent(out) :: nint
16190 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16192 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16195 procedure(
real(RKC)) :: getFunc
16196 real(RKC) ,
intent(in) :: lb
16197 type(pinf_type) ,
intent(in) :: ub
16198 real(RKC) ,
intent(in) :: abstol
16199 real(RKC) ,
intent(in) :: reltol
16200 type(GK41_type) ,
intent(in) :: qrule
16201 type(wcauchy_type) ,
intent(in) :: help
16202 real(RKC) ,
intent(out) :: integral, abserr
16203 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16204 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16205 integer(IK) ,
intent(out) :: neval
16206 integer(IK) ,
intent(out) :: nint
16212 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16214 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16217 procedure(
real(RKC)) :: getFunc
16218 real(RKC) ,
intent(in) :: lb
16219 type(pinf_type) ,
intent(in) :: ub
16220 real(RKC) ,
intent(in) :: abstol
16221 real(RKC) ,
intent(in) :: reltol
16222 type(GK41_type) ,
intent(in) :: qrule
16223 type(wcauchy_type) ,
intent(in) :: help
16224 real(RKC) ,
intent(out) :: integral, abserr
16225 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16226 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16227 integer(IK) ,
intent(out) :: neval
16228 integer(IK) ,
intent(out) :: nint
16234 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16236 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16239 procedure(
real(RKC)) :: getFunc
16240 real(RKC) ,
intent(in) :: lb
16241 type(pinf_type) ,
intent(in) :: ub
16242 real(RKC) ,
intent(in) :: abstol
16243 real(RKC) ,
intent(in) :: reltol
16244 type(GK41_type) ,
intent(in) :: qrule
16245 type(wcauchy_type) ,
intent(in) :: help
16246 real(RKC) ,
intent(out) :: integral, abserr
16247 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16248 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16249 integer(IK) ,
intent(out) :: neval
16250 integer(IK) ,
intent(out) :: nint
16258 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16260 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16263 procedure(
real(RKC)) :: getFunc
16264 real(RKC) ,
intent(in) :: lb
16265 type(pinf_type) ,
intent(in) :: ub
16266 real(RKC) ,
intent(in) :: abstol
16267 real(RKC) ,
intent(in) :: reltol
16268 type(GK51_type) ,
intent(in) :: qrule
16269 type(wcauchy_type) ,
intent(in) :: help
16270 real(RKC) ,
intent(out) :: integral, abserr
16271 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16272 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16273 integer(IK) ,
intent(out) :: neval
16274 integer(IK) ,
intent(out) :: nint
16280 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16282 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16285 procedure(
real(RKC)) :: getFunc
16286 real(RKC) ,
intent(in) :: lb
16287 type(pinf_type) ,
intent(in) :: ub
16288 real(RKC) ,
intent(in) :: abstol
16289 real(RKC) ,
intent(in) :: reltol
16290 type(GK51_type) ,
intent(in) :: qrule
16291 type(wcauchy_type) ,
intent(in) :: help
16292 real(RKC) ,
intent(out) :: integral, abserr
16293 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16294 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16295 integer(IK) ,
intent(out) :: neval
16296 integer(IK) ,
intent(out) :: nint
16302 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16304 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16307 procedure(
real(RKC)) :: getFunc
16308 real(RKC) ,
intent(in) :: lb
16309 type(pinf_type) ,
intent(in) :: ub
16310 real(RKC) ,
intent(in) :: abstol
16311 real(RKC) ,
intent(in) :: reltol
16312 type(GK51_type) ,
intent(in) :: qrule
16313 type(wcauchy_type) ,
intent(in) :: help
16314 real(RKC) ,
intent(out) :: integral, abserr
16315 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16316 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16317 integer(IK) ,
intent(out) :: neval
16318 integer(IK) ,
intent(out) :: nint
16324 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16326 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16329 procedure(
real(RKC)) :: getFunc
16330 real(RKC) ,
intent(in) :: lb
16331 type(pinf_type) ,
intent(in) :: ub
16332 real(RKC) ,
intent(in) :: abstol
16333 real(RKC) ,
intent(in) :: reltol
16334 type(GK51_type) ,
intent(in) :: qrule
16335 type(wcauchy_type) ,
intent(in) :: help
16336 real(RKC) ,
intent(out) :: integral, abserr
16337 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16338 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16339 integer(IK) ,
intent(out) :: neval
16340 integer(IK) ,
intent(out) :: nint
16346 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16348 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16351 procedure(
real(RKC)) :: getFunc
16352 real(RKC) ,
intent(in) :: lb
16353 type(pinf_type) ,
intent(in) :: ub
16354 real(RKC) ,
intent(in) :: abstol
16355 real(RKC) ,
intent(in) :: reltol
16356 type(GK51_type) ,
intent(in) :: qrule
16357 type(wcauchy_type) ,
intent(in) :: help
16358 real(RKC) ,
intent(out) :: integral, abserr
16359 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16360 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16361 integer(IK) ,
intent(out) :: neval
16362 integer(IK) ,
intent(out) :: nint
16370 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16372 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16375 procedure(
real(RKC)) :: getFunc
16376 real(RKC) ,
intent(in) :: lb
16377 type(pinf_type) ,
intent(in) :: ub
16378 real(RKC) ,
intent(in) :: abstol
16379 real(RKC) ,
intent(in) :: reltol
16380 type(GK61_type) ,
intent(in) :: qrule
16381 type(wcauchy_type) ,
intent(in) :: help
16382 real(RKC) ,
intent(out) :: integral, abserr
16383 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16384 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16385 integer(IK) ,
intent(out) :: neval
16386 integer(IK) ,
intent(out) :: nint
16392 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16394 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16397 procedure(
real(RKC)) :: getFunc
16398 real(RKC) ,
intent(in) :: lb
16399 type(pinf_type) ,
intent(in) :: ub
16400 real(RKC) ,
intent(in) :: abstol
16401 real(RKC) ,
intent(in) :: reltol
16402 type(GK61_type) ,
intent(in) :: qrule
16403 type(wcauchy_type) ,
intent(in) :: help
16404 real(RKC) ,
intent(out) :: integral, abserr
16405 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16406 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16407 integer(IK) ,
intent(out) :: neval
16408 integer(IK) ,
intent(out) :: nint
16414 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16416 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16419 procedure(
real(RKC)) :: getFunc
16420 real(RKC) ,
intent(in) :: lb
16421 type(pinf_type) ,
intent(in) :: ub
16422 real(RKC) ,
intent(in) :: abstol
16423 real(RKC) ,
intent(in) :: reltol
16424 type(GK61_type) ,
intent(in) :: qrule
16425 type(wcauchy_type) ,
intent(in) :: help
16426 real(RKC) ,
intent(out) :: integral, abserr
16427 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16428 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16429 integer(IK) ,
intent(out) :: neval
16430 integer(IK) ,
intent(out) :: nint
16436 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16438 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16441 procedure(
real(RKC)) :: getFunc
16442 real(RKC) ,
intent(in) :: lb
16443 type(pinf_type) ,
intent(in) :: ub
16444 real(RKC) ,
intent(in) :: abstol
16445 real(RKC) ,
intent(in) :: reltol
16446 type(GK61_type) ,
intent(in) :: qrule
16447 type(wcauchy_type) ,
intent(in) :: help
16448 real(RKC) ,
intent(out) :: integral, abserr
16449 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16450 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16451 integer(IK) ,
intent(out) :: neval
16452 integer(IK) ,
intent(out) :: nint
16458 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16460 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16463 procedure(
real(RKC)) :: getFunc
16464 real(RKC) ,
intent(in) :: lb
16465 type(pinf_type) ,
intent(in) :: ub
16466 real(RKC) ,
intent(in) :: abstol
16467 real(RKC) ,
intent(in) :: reltol
16468 type(GK61_type) ,
intent(in) :: qrule
16469 type(wcauchy_type) ,
intent(in) :: help
16470 real(RKC) ,
intent(out) :: integral, abserr
16471 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16472 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16473 integer(IK) ,
intent(out) :: neval
16474 integer(IK) ,
intent(out) :: nint
16482 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16484 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16487 procedure(
real(RKC)) :: getFunc
16488 real(RKC) ,
intent(in) :: lb
16489 type(pinf_type) ,
intent(in) :: ub
16490 real(RKC) ,
intent(in) :: abstol
16491 real(RKC) ,
intent(in) :: reltol
16492 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16493 type(wcauchy_type) ,
intent(in) :: help
16494 real(RKC) ,
intent(out) :: integral, abserr
16495 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16496 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16497 integer(IK) ,
intent(out) :: neval
16498 integer(IK) ,
intent(out) :: nint
16504 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16506 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16509 procedure(
real(RKC)) :: getFunc
16510 real(RKC) ,
intent(in) :: lb
16511 type(pinf_type) ,
intent(in) :: ub
16512 real(RKC) ,
intent(in) :: abstol
16513 real(RKC) ,
intent(in) :: reltol
16514 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16515 type(wcauchy_type) ,
intent(in) :: help
16516 real(RKC) ,
intent(out) :: integral, abserr
16517 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16518 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16519 integer(IK) ,
intent(out) :: neval
16520 integer(IK) ,
intent(out) :: nint
16526 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16528 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16531 procedure(
real(RKC)) :: getFunc
16532 real(RKC) ,
intent(in) :: lb
16533 type(pinf_type) ,
intent(in) :: ub
16534 real(RKC) ,
intent(in) :: abstol
16535 real(RKC) ,
intent(in) :: reltol
16536 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16537 type(wcauchy_type) ,
intent(in) :: help
16538 real(RKC) ,
intent(out) :: integral, abserr
16539 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16540 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16541 integer(IK) ,
intent(out) :: neval
16542 integer(IK) ,
intent(out) :: nint
16548 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16550 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16553 procedure(
real(RKC)) :: getFunc
16554 real(RKC) ,
intent(in) :: lb
16555 type(pinf_type) ,
intent(in) :: ub
16556 real(RKC) ,
intent(in) :: abstol
16557 real(RKC) ,
intent(in) :: reltol
16558 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16559 type(wcauchy_type) ,
intent(in) :: help
16560 real(RKC) ,
intent(out) :: integral, abserr
16561 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16562 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16563 integer(IK) ,
intent(out) :: neval
16564 integer(IK) ,
intent(out) :: nint
16570 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16572 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16575 procedure(
real(RKC)) :: getFunc
16576 real(RKC) ,
intent(in) :: lb
16577 type(pinf_type) ,
intent(in) :: ub
16578 real(RKC) ,
intent(in) :: abstol
16579 real(RKC) ,
intent(in) :: reltol
16580 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
16581 type(wcauchy_type) ,
intent(in) :: help
16582 real(RKC) ,
intent(out) :: integral, abserr
16583 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16584 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16585 integer(IK) ,
intent(out) :: neval
16586 integer(IK) ,
intent(out) :: nint
16602 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16607 procedure(
real(RKC)) :: getFunc
16608 type(ninf_type) ,
intent(in) :: lb
16609 real(RKC) ,
intent(in) :: ub
16610 real(RKC) ,
intent(in) :: abstol
16611 real(RKC) ,
intent(in) :: reltol
16612 type(GK15_type) ,
intent(in) :: qrule
16613 type(wcauchy_type) ,
intent(in) :: help
16614 real(RKC) ,
intent(out) :: integral, abserr
16615 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16616 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16617 integer(IK) ,
intent(out) :: neval
16618 integer(IK) ,
intent(out) :: nint
16624 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16629 procedure(
real(RKC)) :: getFunc
16630 type(ninf_type) ,
intent(in) :: lb
16631 real(RKC) ,
intent(in) :: ub
16632 real(RKC) ,
intent(in) :: abstol
16633 real(RKC) ,
intent(in) :: reltol
16634 type(GK15_type) ,
intent(in) :: qrule
16635 type(wcauchy_type) ,
intent(in) :: help
16636 real(RKC) ,
intent(out) :: integral, abserr
16637 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16638 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16639 integer(IK) ,
intent(out) :: neval
16640 integer(IK) ,
intent(out) :: nint
16646 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16648 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16651 procedure(
real(RKC)) :: getFunc
16652 type(ninf_type) ,
intent(in) :: lb
16653 real(RKC) ,
intent(in) :: ub
16654 real(RKC) ,
intent(in) :: abstol
16655 real(RKC) ,
intent(in) :: reltol
16656 type(GK15_type) ,
intent(in) :: qrule
16657 type(wcauchy_type) ,
intent(in) :: help
16658 real(RKC) ,
intent(out) :: integral, abserr
16659 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16660 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16661 integer(IK) ,
intent(out) :: neval
16662 integer(IK) ,
intent(out) :: nint
16668 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16670 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16673 procedure(
real(RKC)) :: getFunc
16674 type(ninf_type) ,
intent(in) :: lb
16675 real(RKC) ,
intent(in) :: ub
16676 real(RKC) ,
intent(in) :: abstol
16677 real(RKC) ,
intent(in) :: reltol
16678 type(GK15_type) ,
intent(in) :: qrule
16679 type(wcauchy_type) ,
intent(in) :: help
16680 real(RKC) ,
intent(out) :: integral, abserr
16681 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16682 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16683 integer(IK) ,
intent(out) :: neval
16684 integer(IK) ,
intent(out) :: nint
16690 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16692 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16695 procedure(
real(RKC)) :: getFunc
16696 type(ninf_type) ,
intent(in) :: lb
16697 real(RKC) ,
intent(in) :: ub
16698 real(RKC) ,
intent(in) :: abstol
16699 real(RKC) ,
intent(in) :: reltol
16700 type(GK15_type) ,
intent(in) :: qrule
16701 type(wcauchy_type) ,
intent(in) :: help
16702 real(RKC) ,
intent(out) :: integral, abserr
16703 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16704 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16705 integer(IK) ,
intent(out) :: neval
16706 integer(IK) ,
intent(out) :: nint
16714 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16719 procedure(
real(RKC)) :: getFunc
16720 type(ninf_type) ,
intent(in) :: lb
16721 real(RKC) ,
intent(in) :: ub
16722 real(RKC) ,
intent(in) :: abstol
16723 real(RKC) ,
intent(in) :: reltol
16724 type(GK21_type) ,
intent(in) :: qrule
16725 type(wcauchy_type) ,
intent(in) :: help
16726 real(RKC) ,
intent(out) :: integral, abserr
16727 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16728 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16729 integer(IK) ,
intent(out) :: neval
16730 integer(IK) ,
intent(out) :: nint
16736 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16741 procedure(
real(RKC)) :: getFunc
16742 type(ninf_type) ,
intent(in) :: lb
16743 real(RKC) ,
intent(in) :: ub
16744 real(RKC) ,
intent(in) :: abstol
16745 real(RKC) ,
intent(in) :: reltol
16746 type(GK21_type) ,
intent(in) :: qrule
16747 type(wcauchy_type) ,
intent(in) :: help
16748 real(RKC) ,
intent(out) :: integral, abserr
16749 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16750 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16751 integer(IK) ,
intent(out) :: neval
16752 integer(IK) ,
intent(out) :: nint
16758 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16760 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16763 procedure(
real(RKC)) :: getFunc
16764 type(ninf_type) ,
intent(in) :: lb
16765 real(RKC) ,
intent(in) :: ub
16766 real(RKC) ,
intent(in) :: abstol
16767 real(RKC) ,
intent(in) :: reltol
16768 type(GK21_type) ,
intent(in) :: qrule
16769 type(wcauchy_type) ,
intent(in) :: help
16770 real(RKC) ,
intent(out) :: integral, abserr
16771 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16772 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16773 integer(IK) ,
intent(out) :: neval
16774 integer(IK) ,
intent(out) :: nint
16780 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16782 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16785 procedure(
real(RKC)) :: getFunc
16786 type(ninf_type) ,
intent(in) :: lb
16787 real(RKC) ,
intent(in) :: ub
16788 real(RKC) ,
intent(in) :: abstol
16789 real(RKC) ,
intent(in) :: reltol
16790 type(GK21_type) ,
intent(in) :: qrule
16791 type(wcauchy_type) ,
intent(in) :: help
16792 real(RKC) ,
intent(out) :: integral, abserr
16793 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16794 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16795 integer(IK) ,
intent(out) :: neval
16796 integer(IK) ,
intent(out) :: nint
16802 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16804 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16807 procedure(
real(RKC)) :: getFunc
16808 type(ninf_type) ,
intent(in) :: lb
16809 real(RKC) ,
intent(in) :: ub
16810 real(RKC) ,
intent(in) :: abstol
16811 real(RKC) ,
intent(in) :: reltol
16812 type(GK21_type) ,
intent(in) :: qrule
16813 type(wcauchy_type) ,
intent(in) :: help
16814 real(RKC) ,
intent(out) :: integral, abserr
16815 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16816 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16817 integer(IK) ,
intent(out) :: neval
16818 integer(IK) ,
intent(out) :: nint
16826 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16828 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16831 procedure(
real(RKC)) :: getFunc
16832 type(ninf_type) ,
intent(in) :: lb
16833 real(RKC) ,
intent(in) :: ub
16834 real(RKC) ,
intent(in) :: abstol
16835 real(RKC) ,
intent(in) :: reltol
16836 type(GK31_type) ,
intent(in) :: qrule
16837 type(wcauchy_type) ,
intent(in) :: help
16838 real(RKC) ,
intent(out) :: integral, abserr
16839 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16840 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16841 integer(IK) ,
intent(out) :: neval
16842 integer(IK) ,
intent(out) :: nint
16848 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16850 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16853 procedure(
real(RKC)) :: getFunc
16854 type(ninf_type) ,
intent(in) :: lb
16855 real(RKC) ,
intent(in) :: ub
16856 real(RKC) ,
intent(in) :: abstol
16857 real(RKC) ,
intent(in) :: reltol
16858 type(GK31_type) ,
intent(in) :: qrule
16859 type(wcauchy_type) ,
intent(in) :: help
16860 real(RKC) ,
intent(out) :: integral, abserr
16861 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16862 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16863 integer(IK) ,
intent(out) :: neval
16864 integer(IK) ,
intent(out) :: nint
16870 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16872 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16875 procedure(
real(RKC)) :: getFunc
16876 type(ninf_type) ,
intent(in) :: lb
16877 real(RKC) ,
intent(in) :: ub
16878 real(RKC) ,
intent(in) :: abstol
16879 real(RKC) ,
intent(in) :: reltol
16880 type(GK31_type) ,
intent(in) :: qrule
16881 type(wcauchy_type) ,
intent(in) :: help
16882 real(RKC) ,
intent(out) :: integral, abserr
16883 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16884 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16885 integer(IK) ,
intent(out) :: neval
16886 integer(IK) ,
intent(out) :: nint
16892 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16894 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16897 procedure(
real(RKC)) :: getFunc
16898 type(ninf_type) ,
intent(in) :: lb
16899 real(RKC) ,
intent(in) :: ub
16900 real(RKC) ,
intent(in) :: abstol
16901 real(RKC) ,
intent(in) :: reltol
16902 type(GK31_type) ,
intent(in) :: qrule
16903 type(wcauchy_type) ,
intent(in) :: help
16904 real(RKC) ,
intent(out) :: integral, abserr
16905 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16906 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16907 integer(IK) ,
intent(out) :: neval
16908 integer(IK) ,
intent(out) :: nint
16914 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16916 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16919 procedure(
real(RKC)) :: getFunc
16920 type(ninf_type) ,
intent(in) :: lb
16921 real(RKC) ,
intent(in) :: ub
16922 real(RKC) ,
intent(in) :: abstol
16923 real(RKC) ,
intent(in) :: reltol
16924 type(GK31_type) ,
intent(in) :: qrule
16925 type(wcauchy_type) ,
intent(in) :: help
16926 real(RKC) ,
intent(out) :: integral, abserr
16927 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16928 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16929 integer(IK) ,
intent(out) :: neval
16930 integer(IK) ,
intent(out) :: nint
16938 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16940 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
16943 procedure(
real(RKC)) :: getFunc
16944 type(ninf_type) ,
intent(in) :: lb
16945 real(RKC) ,
intent(in) :: ub
16946 real(RKC) ,
intent(in) :: abstol
16947 real(RKC) ,
intent(in) :: reltol
16948 type(GK41_type) ,
intent(in) :: qrule
16949 type(wcauchy_type) ,
intent(in) :: help
16950 real(RKC) ,
intent(out) :: integral, abserr
16951 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16952 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16953 integer(IK) ,
intent(out) :: neval
16954 integer(IK) ,
intent(out) :: nint
16960 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16962 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
16965 procedure(
real(RKC)) :: getFunc
16966 type(ninf_type) ,
intent(in) :: lb
16967 real(RKC) ,
intent(in) :: ub
16968 real(RKC) ,
intent(in) :: abstol
16969 real(RKC) ,
intent(in) :: reltol
16970 type(GK41_type) ,
intent(in) :: qrule
16971 type(wcauchy_type) ,
intent(in) :: help
16972 real(RKC) ,
intent(out) :: integral, abserr
16973 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16974 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16975 integer(IK) ,
intent(out) :: neval
16976 integer(IK) ,
intent(out) :: nint
16982 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
16983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16984 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
16987 procedure(
real(RKC)) :: getFunc
16988 type(ninf_type) ,
intent(in) :: lb
16989 real(RKC) ,
intent(in) :: ub
16990 real(RKC) ,
intent(in) :: abstol
16991 real(RKC) ,
intent(in) :: reltol
16992 type(GK41_type) ,
intent(in) :: qrule
16993 type(wcauchy_type) ,
intent(in) :: help
16994 real(RKC) ,
intent(out) :: integral, abserr
16995 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
16996 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
16997 integer(IK) ,
intent(out) :: neval
16998 integer(IK) ,
intent(out) :: nint
17004 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17006 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17009 procedure(
real(RKC)) :: getFunc
17010 type(ninf_type) ,
intent(in) :: lb
17011 real(RKC) ,
intent(in) :: ub
17012 real(RKC) ,
intent(in) :: abstol
17013 real(RKC) ,
intent(in) :: reltol
17014 type(GK41_type) ,
intent(in) :: qrule
17015 type(wcauchy_type) ,
intent(in) :: help
17016 real(RKC) ,
intent(out) :: integral, abserr
17017 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17018 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17019 integer(IK) ,
intent(out) :: neval
17020 integer(IK) ,
intent(out) :: nint
17026 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17028 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17031 procedure(
real(RKC)) :: getFunc
17032 type(ninf_type) ,
intent(in) :: lb
17033 real(RKC) ,
intent(in) :: ub
17034 real(RKC) ,
intent(in) :: abstol
17035 real(RKC) ,
intent(in) :: reltol
17036 type(GK41_type) ,
intent(in) :: qrule
17037 type(wcauchy_type) ,
intent(in) :: help
17038 real(RKC) ,
intent(out) :: integral, abserr
17039 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17040 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17041 integer(IK) ,
intent(out) :: neval
17042 integer(IK) ,
intent(out) :: nint
17050 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17052 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17055 procedure(
real(RKC)) :: getFunc
17056 type(ninf_type) ,
intent(in) :: lb
17057 real(RKC) ,
intent(in) :: ub
17058 real(RKC) ,
intent(in) :: abstol
17059 real(RKC) ,
intent(in) :: reltol
17060 type(GK51_type) ,
intent(in) :: qrule
17061 type(wcauchy_type) ,
intent(in) :: help
17062 real(RKC) ,
intent(out) :: integral, abserr
17063 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17064 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17065 integer(IK) ,
intent(out) :: neval
17066 integer(IK) ,
intent(out) :: nint
17072 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17074 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17077 procedure(
real(RKC)) :: getFunc
17078 type(ninf_type) ,
intent(in) :: lb
17079 real(RKC) ,
intent(in) :: ub
17080 real(RKC) ,
intent(in) :: abstol
17081 real(RKC) ,
intent(in) :: reltol
17082 type(GK51_type) ,
intent(in) :: qrule
17083 type(wcauchy_type) ,
intent(in) :: help
17084 real(RKC) ,
intent(out) :: integral, abserr
17085 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17086 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17087 integer(IK) ,
intent(out) :: neval
17088 integer(IK) ,
intent(out) :: nint
17094 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17096 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17099 procedure(
real(RKC)) :: getFunc
17100 type(ninf_type) ,
intent(in) :: lb
17101 real(RKC) ,
intent(in) :: ub
17102 real(RKC) ,
intent(in) :: abstol
17103 real(RKC) ,
intent(in) :: reltol
17104 type(GK51_type) ,
intent(in) :: qrule
17105 type(wcauchy_type) ,
intent(in) :: help
17106 real(RKC) ,
intent(out) :: integral, abserr
17107 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17108 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17109 integer(IK) ,
intent(out) :: neval
17110 integer(IK) ,
intent(out) :: nint
17116 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17118 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17121 procedure(
real(RKC)) :: getFunc
17122 type(ninf_type) ,
intent(in) :: lb
17123 real(RKC) ,
intent(in) :: ub
17124 real(RKC) ,
intent(in) :: abstol
17125 real(RKC) ,
intent(in) :: reltol
17126 type(GK51_type) ,
intent(in) :: qrule
17127 type(wcauchy_type) ,
intent(in) :: help
17128 real(RKC) ,
intent(out) :: integral, abserr
17129 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17130 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17131 integer(IK) ,
intent(out) :: neval
17132 integer(IK) ,
intent(out) :: nint
17138 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17140 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17143 procedure(
real(RKC)) :: getFunc
17144 type(ninf_type) ,
intent(in) :: lb
17145 real(RKC) ,
intent(in) :: ub
17146 real(RKC) ,
intent(in) :: abstol
17147 real(RKC) ,
intent(in) :: reltol
17148 type(GK51_type) ,
intent(in) :: qrule
17149 type(wcauchy_type) ,
intent(in) :: help
17150 real(RKC) ,
intent(out) :: integral, abserr
17151 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17152 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17153 integer(IK) ,
intent(out) :: neval
17154 integer(IK) ,
intent(out) :: nint
17162 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17164 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17167 procedure(
real(RKC)) :: getFunc
17168 type(ninf_type) ,
intent(in) :: lb
17169 real(RKC) ,
intent(in) :: ub
17170 real(RKC) ,
intent(in) :: abstol
17171 real(RKC) ,
intent(in) :: reltol
17172 type(GK61_type) ,
intent(in) :: qrule
17173 type(wcauchy_type) ,
intent(in) :: help
17174 real(RKC) ,
intent(out) :: integral, abserr
17175 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17176 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17177 integer(IK) ,
intent(out) :: neval
17178 integer(IK) ,
intent(out) :: nint
17184 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17186 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17189 procedure(
real(RKC)) :: getFunc
17190 type(ninf_type) ,
intent(in) :: lb
17191 real(RKC) ,
intent(in) :: ub
17192 real(RKC) ,
intent(in) :: abstol
17193 real(RKC) ,
intent(in) :: reltol
17194 type(GK61_type) ,
intent(in) :: qrule
17195 type(wcauchy_type) ,
intent(in) :: help
17196 real(RKC) ,
intent(out) :: integral, abserr
17197 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17198 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17199 integer(IK) ,
intent(out) :: neval
17200 integer(IK) ,
intent(out) :: nint
17206 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17208 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17211 procedure(
real(RKC)) :: getFunc
17212 type(ninf_type) ,
intent(in) :: lb
17213 real(RKC) ,
intent(in) :: ub
17214 real(RKC) ,
intent(in) :: abstol
17215 real(RKC) ,
intent(in) :: reltol
17216 type(GK61_type) ,
intent(in) :: qrule
17217 type(wcauchy_type) ,
intent(in) :: help
17218 real(RKC) ,
intent(out) :: integral, abserr
17219 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17220 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17221 integer(IK) ,
intent(out) :: neval
17222 integer(IK) ,
intent(out) :: nint
17228 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17230 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17233 procedure(
real(RKC)) :: getFunc
17234 type(ninf_type) ,
intent(in) :: lb
17235 real(RKC) ,
intent(in) :: ub
17236 real(RKC) ,
intent(in) :: abstol
17237 real(RKC) ,
intent(in) :: reltol
17238 type(GK61_type) ,
intent(in) :: qrule
17239 type(wcauchy_type) ,
intent(in) :: help
17240 real(RKC) ,
intent(out) :: integral, abserr
17241 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17242 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17243 integer(IK) ,
intent(out) :: neval
17244 integer(IK) ,
intent(out) :: nint
17250 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17252 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17255 procedure(
real(RKC)) :: getFunc
17256 type(ninf_type) ,
intent(in) :: lb
17257 real(RKC) ,
intent(in) :: ub
17258 real(RKC) ,
intent(in) :: abstol
17259 real(RKC) ,
intent(in) :: reltol
17260 type(GK61_type) ,
intent(in) :: qrule
17261 type(wcauchy_type) ,
intent(in) :: help
17262 real(RKC) ,
intent(out) :: integral, abserr
17263 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17264 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17265 integer(IK) ,
intent(out) :: neval
17266 integer(IK) ,
intent(out) :: nint
17274 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17276 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17279 procedure(
real(RKC)) :: getFunc
17280 type(ninf_type) ,
intent(in) :: lb
17281 real(RKC) ,
intent(in) :: ub
17282 real(RKC) ,
intent(in) :: abstol
17283 real(RKC) ,
intent(in) :: reltol
17284 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17285 type(wcauchy_type) ,
intent(in) :: help
17286 real(RKC) ,
intent(out) :: integral, abserr
17287 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17288 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17289 integer(IK) ,
intent(out) :: neval
17290 integer(IK) ,
intent(out) :: nint
17296 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17298 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17301 procedure(
real(RKC)) :: getFunc
17302 type(ninf_type) ,
intent(in) :: lb
17303 real(RKC) ,
intent(in) :: ub
17304 real(RKC) ,
intent(in) :: abstol
17305 real(RKC) ,
intent(in) :: reltol
17306 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17307 type(wcauchy_type) ,
intent(in) :: help
17308 real(RKC) ,
intent(out) :: integral, abserr
17309 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17310 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17311 integer(IK) ,
intent(out) :: neval
17312 integer(IK) ,
intent(out) :: nint
17318 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17320 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17323 procedure(
real(RKC)) :: getFunc
17324 type(ninf_type) ,
intent(in) :: lb
17325 real(RKC) ,
intent(in) :: ub
17326 real(RKC) ,
intent(in) :: abstol
17327 real(RKC) ,
intent(in) :: reltol
17328 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17329 type(wcauchy_type) ,
intent(in) :: help
17330 real(RKC) ,
intent(out) :: integral, abserr
17331 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17332 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17333 integer(IK) ,
intent(out) :: neval
17334 integer(IK) ,
intent(out) :: nint
17340 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17342 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17345 procedure(
real(RKC)) :: getFunc
17346 type(ninf_type) ,
intent(in) :: lb
17347 real(RKC) ,
intent(in) :: ub
17348 real(RKC) ,
intent(in) :: abstol
17349 real(RKC) ,
intent(in) :: reltol
17350 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17351 type(wcauchy_type) ,
intent(in) :: help
17352 real(RKC) ,
intent(out) :: integral, abserr
17353 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17354 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17355 integer(IK) ,
intent(out) :: neval
17356 integer(IK) ,
intent(out) :: nint
17362 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17364 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17367 procedure(
real(RKC)) :: getFunc
17368 type(ninf_type) ,
intent(in) :: lb
17369 real(RKC) ,
intent(in) :: ub
17370 real(RKC) ,
intent(in) :: abstol
17371 real(RKC) ,
intent(in) :: reltol
17372 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
17373 type(wcauchy_type) ,
intent(in) :: help
17374 real(RKC) ,
intent(out) :: integral, abserr
17375 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17376 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17377 integer(IK) ,
intent(out) :: neval
17378 integer(IK) ,
intent(out) :: nint
17394 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17399 procedure(
real(RKC)) :: getFunc
17400 type(ninf_type) ,
intent(in) :: lb
17401 type(pinf_type) ,
intent(in) :: ub
17402 real(RKC) ,
intent(in) :: abstol
17403 real(RKC) ,
intent(in) :: reltol
17404 type(GK15_type) ,
intent(in) :: qrule
17405 type(wcauchy_type) ,
intent(in) :: help
17406 real(RKC) ,
intent(out) :: integral, abserr
17407 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17408 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17409 integer(IK) ,
intent(out) :: neval
17410 integer(IK) ,
intent(out) :: nint
17416 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17421 procedure(
real(RKC)) :: getFunc
17422 type(ninf_type) ,
intent(in) :: lb
17423 type(pinf_type) ,
intent(in) :: ub
17424 real(RKC) ,
intent(in) :: abstol
17425 real(RKC) ,
intent(in) :: reltol
17426 type(GK15_type) ,
intent(in) :: qrule
17427 type(wcauchy_type) ,
intent(in) :: help
17428 real(RKC) ,
intent(out) :: integral, abserr
17429 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17430 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17431 integer(IK) ,
intent(out) :: neval
17432 integer(IK) ,
intent(out) :: nint
17438 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17440 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17443 procedure(
real(RKC)) :: getFunc
17444 type(ninf_type) ,
intent(in) :: lb
17445 type(pinf_type) ,
intent(in) :: ub
17446 real(RKC) ,
intent(in) :: abstol
17447 real(RKC) ,
intent(in) :: reltol
17448 type(GK15_type) ,
intent(in) :: qrule
17449 type(wcauchy_type) ,
intent(in) :: help
17450 real(RKC) ,
intent(out) :: integral, abserr
17451 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17452 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17453 integer(IK) ,
intent(out) :: neval
17454 integer(IK) ,
intent(out) :: nint
17460 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17462 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17465 procedure(
real(RKC)) :: getFunc
17466 type(ninf_type) ,
intent(in) :: lb
17467 type(pinf_type) ,
intent(in) :: ub
17468 real(RKC) ,
intent(in) :: abstol
17469 real(RKC) ,
intent(in) :: reltol
17470 type(GK15_type) ,
intent(in) :: qrule
17471 type(wcauchy_type) ,
intent(in) :: help
17472 real(RKC) ,
intent(out) :: integral, abserr
17473 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17474 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17475 integer(IK) ,
intent(out) :: neval
17476 integer(IK) ,
intent(out) :: nint
17482 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17484 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17487 procedure(
real(RKC)) :: getFunc
17488 type(ninf_type) ,
intent(in) :: lb
17489 type(pinf_type) ,
intent(in) :: ub
17490 real(RKC) ,
intent(in) :: abstol
17491 real(RKC) ,
intent(in) :: reltol
17492 type(GK15_type) ,
intent(in) :: qrule
17493 type(wcauchy_type) ,
intent(in) :: help
17494 real(RKC) ,
intent(out) :: integral, abserr
17495 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17496 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17497 integer(IK) ,
intent(out) :: neval
17498 integer(IK) ,
intent(out) :: nint
17506 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17511 procedure(
real(RKC)) :: getFunc
17512 type(ninf_type) ,
intent(in) :: lb
17513 type(pinf_type) ,
intent(in) :: ub
17514 real(RKC) ,
intent(in) :: abstol
17515 real(RKC) ,
intent(in) :: reltol
17516 type(GK21_type) ,
intent(in) :: qrule
17517 type(wcauchy_type) ,
intent(in) :: help
17518 real(RKC) ,
intent(out) :: integral, abserr
17519 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17520 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17521 integer(IK) ,
intent(out) :: neval
17522 integer(IK) ,
intent(out) :: nint
17528 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17533 procedure(
real(RKC)) :: getFunc
17534 type(ninf_type) ,
intent(in) :: lb
17535 type(pinf_type) ,
intent(in) :: ub
17536 real(RKC) ,
intent(in) :: abstol
17537 real(RKC) ,
intent(in) :: reltol
17538 type(GK21_type) ,
intent(in) :: qrule
17539 type(wcauchy_type) ,
intent(in) :: help
17540 real(RKC) ,
intent(out) :: integral, abserr
17541 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17542 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17543 integer(IK) ,
intent(out) :: neval
17544 integer(IK) ,
intent(out) :: nint
17550 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17552 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17555 procedure(
real(RKC)) :: getFunc
17556 type(ninf_type) ,
intent(in) :: lb
17557 type(pinf_type) ,
intent(in) :: ub
17558 real(RKC) ,
intent(in) :: abstol
17559 real(RKC) ,
intent(in) :: reltol
17560 type(GK21_type) ,
intent(in) :: qrule
17561 type(wcauchy_type) ,
intent(in) :: help
17562 real(RKC) ,
intent(out) :: integral, abserr
17563 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17564 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17565 integer(IK) ,
intent(out) :: neval
17566 integer(IK) ,
intent(out) :: nint
17572 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17574 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17577 procedure(
real(RKC)) :: getFunc
17578 type(ninf_type) ,
intent(in) :: lb
17579 type(pinf_type) ,
intent(in) :: ub
17580 real(RKC) ,
intent(in) :: abstol
17581 real(RKC) ,
intent(in) :: reltol
17582 type(GK21_type) ,
intent(in) :: qrule
17583 type(wcauchy_type) ,
intent(in) :: help
17584 real(RKC) ,
intent(out) :: integral, abserr
17585 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17586 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17587 integer(IK) ,
intent(out) :: neval
17588 integer(IK) ,
intent(out) :: nint
17594 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17596 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17599 procedure(
real(RKC)) :: getFunc
17600 type(ninf_type) ,
intent(in) :: lb
17601 type(pinf_type) ,
intent(in) :: ub
17602 real(RKC) ,
intent(in) :: abstol
17603 real(RKC) ,
intent(in) :: reltol
17604 type(GK21_type) ,
intent(in) :: qrule
17605 type(wcauchy_type) ,
intent(in) :: help
17606 real(RKC) ,
intent(out) :: integral, abserr
17607 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17608 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17609 integer(IK) ,
intent(out) :: neval
17610 integer(IK) ,
intent(out) :: nint
17618 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17620 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17623 procedure(
real(RKC)) :: getFunc
17624 type(ninf_type) ,
intent(in) :: lb
17625 type(pinf_type) ,
intent(in) :: ub
17626 real(RKC) ,
intent(in) :: abstol
17627 real(RKC) ,
intent(in) :: reltol
17628 type(GK31_type) ,
intent(in) :: qrule
17629 type(wcauchy_type) ,
intent(in) :: help
17630 real(RKC) ,
intent(out) :: integral, abserr
17631 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17632 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17633 integer(IK) ,
intent(out) :: neval
17634 integer(IK) ,
intent(out) :: nint
17640 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17642 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17645 procedure(
real(RKC)) :: getFunc
17646 type(ninf_type) ,
intent(in) :: lb
17647 type(pinf_type) ,
intent(in) :: ub
17648 real(RKC) ,
intent(in) :: abstol
17649 real(RKC) ,
intent(in) :: reltol
17650 type(GK31_type) ,
intent(in) :: qrule
17651 type(wcauchy_type) ,
intent(in) :: help
17652 real(RKC) ,
intent(out) :: integral, abserr
17653 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17654 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17655 integer(IK) ,
intent(out) :: neval
17656 integer(IK) ,
intent(out) :: nint
17662 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17664 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17667 procedure(
real(RKC)) :: getFunc
17668 type(ninf_type) ,
intent(in) :: lb
17669 type(pinf_type) ,
intent(in) :: ub
17670 real(RKC) ,
intent(in) :: abstol
17671 real(RKC) ,
intent(in) :: reltol
17672 type(GK31_type) ,
intent(in) :: qrule
17673 type(wcauchy_type) ,
intent(in) :: help
17674 real(RKC) ,
intent(out) :: integral, abserr
17675 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17676 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17677 integer(IK) ,
intent(out) :: neval
17678 integer(IK) ,
intent(out) :: nint
17684 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17686 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17689 procedure(
real(RKC)) :: getFunc
17690 type(ninf_type) ,
intent(in) :: lb
17691 type(pinf_type) ,
intent(in) :: ub
17692 real(RKC) ,
intent(in) :: abstol
17693 real(RKC) ,
intent(in) :: reltol
17694 type(GK31_type) ,
intent(in) :: qrule
17695 type(wcauchy_type) ,
intent(in) :: help
17696 real(RKC) ,
intent(out) :: integral, abserr
17697 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17698 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17699 integer(IK) ,
intent(out) :: neval
17700 integer(IK) ,
intent(out) :: nint
17706 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17708 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17711 procedure(
real(RKC)) :: getFunc
17712 type(ninf_type) ,
intent(in) :: lb
17713 type(pinf_type) ,
intent(in) :: ub
17714 real(RKC) ,
intent(in) :: abstol
17715 real(RKC) ,
intent(in) :: reltol
17716 type(GK31_type) ,
intent(in) :: qrule
17717 type(wcauchy_type) ,
intent(in) :: help
17718 real(RKC) ,
intent(out) :: integral, abserr
17719 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17720 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17721 integer(IK) ,
intent(out) :: neval
17722 integer(IK) ,
intent(out) :: nint
17730 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17732 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17735 procedure(
real(RKC)) :: getFunc
17736 type(ninf_type) ,
intent(in) :: lb
17737 type(pinf_type) ,
intent(in) :: ub
17738 real(RKC) ,
intent(in) :: abstol
17739 real(RKC) ,
intent(in) :: reltol
17740 type(GK41_type) ,
intent(in) :: qrule
17741 type(wcauchy_type) ,
intent(in) :: help
17742 real(RKC) ,
intent(out) :: integral, abserr
17743 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17744 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17745 integer(IK) ,
intent(out) :: neval
17746 integer(IK) ,
intent(out) :: nint
17752 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17754 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17757 procedure(
real(RKC)) :: getFunc
17758 type(ninf_type) ,
intent(in) :: lb
17759 type(pinf_type) ,
intent(in) :: ub
17760 real(RKC) ,
intent(in) :: abstol
17761 real(RKC) ,
intent(in) :: reltol
17762 type(GK41_type) ,
intent(in) :: qrule
17763 type(wcauchy_type) ,
intent(in) :: help
17764 real(RKC) ,
intent(out) :: integral, abserr
17765 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17766 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17767 integer(IK) ,
intent(out) :: neval
17768 integer(IK) ,
intent(out) :: nint
17774 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17776 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17779 procedure(
real(RKC)) :: getFunc
17780 type(ninf_type) ,
intent(in) :: lb
17781 type(pinf_type) ,
intent(in) :: ub
17782 real(RKC) ,
intent(in) :: abstol
17783 real(RKC) ,
intent(in) :: reltol
17784 type(GK41_type) ,
intent(in) :: qrule
17785 type(wcauchy_type) ,
intent(in) :: help
17786 real(RKC) ,
intent(out) :: integral, abserr
17787 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17788 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17789 integer(IK) ,
intent(out) :: neval
17790 integer(IK) ,
intent(out) :: nint
17796 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17798 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17801 procedure(
real(RKC)) :: getFunc
17802 type(ninf_type) ,
intent(in) :: lb
17803 type(pinf_type) ,
intent(in) :: ub
17804 real(RKC) ,
intent(in) :: abstol
17805 real(RKC) ,
intent(in) :: reltol
17806 type(GK41_type) ,
intent(in) :: qrule
17807 type(wcauchy_type) ,
intent(in) :: help
17808 real(RKC) ,
intent(out) :: integral, abserr
17809 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17810 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17811 integer(IK) ,
intent(out) :: neval
17812 integer(IK) ,
intent(out) :: nint
17818 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17819#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17820 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17823 procedure(
real(RKC)) :: getFunc
17824 type(ninf_type) ,
intent(in) :: lb
17825 type(pinf_type) ,
intent(in) :: ub
17826 real(RKC) ,
intent(in) :: abstol
17827 real(RKC) ,
intent(in) :: reltol
17828 type(GK41_type) ,
intent(in) :: qrule
17829 type(wcauchy_type) ,
intent(in) :: help
17830 real(RKC) ,
intent(out) :: integral, abserr
17831 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17832 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17833 integer(IK) ,
intent(out) :: neval
17834 integer(IK) ,
intent(out) :: nint
17842 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17844 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17847 procedure(
real(RKC)) :: getFunc
17848 type(ninf_type) ,
intent(in) :: lb
17849 type(pinf_type) ,
intent(in) :: ub
17850 real(RKC) ,
intent(in) :: abstol
17851 real(RKC) ,
intent(in) :: reltol
17852 type(GK51_type) ,
intent(in) :: qrule
17853 type(wcauchy_type) ,
intent(in) :: help
17854 real(RKC) ,
intent(out) :: integral, abserr
17855 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17856 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17857 integer(IK) ,
intent(out) :: neval
17858 integer(IK) ,
intent(out) :: nint
17864 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17865#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17866 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17869 procedure(
real(RKC)) :: getFunc
17870 type(ninf_type) ,
intent(in) :: lb
17871 type(pinf_type) ,
intent(in) :: ub
17872 real(RKC) ,
intent(in) :: abstol
17873 real(RKC) ,
intent(in) :: reltol
17874 type(GK51_type) ,
intent(in) :: qrule
17875 type(wcauchy_type) ,
intent(in) :: help
17876 real(RKC) ,
intent(out) :: integral, abserr
17877 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17878 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17879 integer(IK) ,
intent(out) :: neval
17880 integer(IK) ,
intent(out) :: nint
17886 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17888 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17891 procedure(
real(RKC)) :: getFunc
17892 type(ninf_type) ,
intent(in) :: lb
17893 type(pinf_type) ,
intent(in) :: ub
17894 real(RKC) ,
intent(in) :: abstol
17895 real(RKC) ,
intent(in) :: reltol
17896 type(GK51_type) ,
intent(in) :: qrule
17897 type(wcauchy_type) ,
intent(in) :: help
17898 real(RKC) ,
intent(out) :: integral, abserr
17899 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17900 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17901 integer(IK) ,
intent(out) :: neval
17902 integer(IK) ,
intent(out) :: nint
17908 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17910 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17913 procedure(
real(RKC)) :: getFunc
17914 type(ninf_type) ,
intent(in) :: lb
17915 type(pinf_type) ,
intent(in) :: ub
17916 real(RKC) ,
intent(in) :: abstol
17917 real(RKC) ,
intent(in) :: reltol
17918 type(GK51_type) ,
intent(in) :: qrule
17919 type(wcauchy_type) ,
intent(in) :: help
17920 real(RKC) ,
intent(out) :: integral, abserr
17921 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17922 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17923 integer(IK) ,
intent(out) :: neval
17924 integer(IK) ,
intent(out) :: nint
17930 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17932 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
17935 procedure(
real(RKC)) :: getFunc
17936 type(ninf_type) ,
intent(in) :: lb
17937 type(pinf_type) ,
intent(in) :: ub
17938 real(RKC) ,
intent(in) :: abstol
17939 real(RKC) ,
intent(in) :: reltol
17940 type(GK51_type) ,
intent(in) :: qrule
17941 type(wcauchy_type) ,
intent(in) :: help
17942 real(RKC) ,
intent(out) :: integral, abserr
17943 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17944 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17945 integer(IK) ,
intent(out) :: neval
17946 integer(IK) ,
intent(out) :: nint
17954 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17956 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
17959 procedure(
real(RKC)) :: getFunc
17960 type(ninf_type) ,
intent(in) :: lb
17961 type(pinf_type) ,
intent(in) :: ub
17962 real(RKC) ,
intent(in) :: abstol
17963 real(RKC) ,
intent(in) :: reltol
17964 type(GK61_type) ,
intent(in) :: qrule
17965 type(wcauchy_type) ,
intent(in) :: help
17966 real(RKC) ,
intent(out) :: integral, abserr
17967 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17968 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17969 integer(IK) ,
intent(out) :: neval
17970 integer(IK) ,
intent(out) :: nint
17976 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17978 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
17981 procedure(
real(RKC)) :: getFunc
17982 type(ninf_type) ,
intent(in) :: lb
17983 type(pinf_type) ,
intent(in) :: ub
17984 real(RKC) ,
intent(in) :: abstol
17985 real(RKC) ,
intent(in) :: reltol
17986 type(GK61_type) ,
intent(in) :: qrule
17987 type(wcauchy_type) ,
intent(in) :: help
17988 real(RKC) ,
intent(out) :: integral, abserr
17989 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
17990 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
17991 integer(IK) ,
intent(out) :: neval
17992 integer(IK) ,
intent(out) :: nint
17998 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
17999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18000 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18003 procedure(
real(RKC)) :: getFunc
18004 type(ninf_type) ,
intent(in) :: lb
18005 type(pinf_type) ,
intent(in) :: ub
18006 real(RKC) ,
intent(in) :: abstol
18007 real(RKC) ,
intent(in) :: reltol
18008 type(GK61_type) ,
intent(in) :: qrule
18009 type(wcauchy_type) ,
intent(in) :: help
18010 real(RKC) ,
intent(out) :: integral, abserr
18011 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18012 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18013 integer(IK) ,
intent(out) :: neval
18014 integer(IK) ,
intent(out) :: nint
18020 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18022 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18025 procedure(
real(RKC)) :: getFunc
18026 type(ninf_type) ,
intent(in) :: lb
18027 type(pinf_type) ,
intent(in) :: ub
18028 real(RKC) ,
intent(in) :: abstol
18029 real(RKC) ,
intent(in) :: reltol
18030 type(GK61_type) ,
intent(in) :: qrule
18031 type(wcauchy_type) ,
intent(in) :: help
18032 real(RKC) ,
intent(out) :: integral, abserr
18033 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18034 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18035 integer(IK) ,
intent(out) :: neval
18036 integer(IK) ,
intent(out) :: nint
18042 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18044 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18047 procedure(
real(RKC)) :: getFunc
18048 type(ninf_type) ,
intent(in) :: lb
18049 type(pinf_type) ,
intent(in) :: ub
18050 real(RKC) ,
intent(in) :: abstol
18051 real(RKC) ,
intent(in) :: reltol
18052 type(GK61_type) ,
intent(in) :: qrule
18053 type(wcauchy_type) ,
intent(in) :: help
18054 real(RKC) ,
intent(out) :: integral, abserr
18055 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18056 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18057 integer(IK) ,
intent(out) :: neval
18058 integer(IK) ,
intent(out) :: nint
18066 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18068 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18071 procedure(
real(RKC)) :: getFunc
18072 type(ninf_type) ,
intent(in) :: lb
18073 type(pinf_type) ,
intent(in) :: ub
18074 real(RKC) ,
intent(in) :: abstol
18075 real(RKC) ,
intent(in) :: reltol
18076 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18077 type(wcauchy_type) ,
intent(in) :: help
18078 real(RKC) ,
intent(out) :: integral, abserr
18079 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18080 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18081 integer(IK) ,
intent(out) :: neval
18082 integer(IK) ,
intent(out) :: nint
18088 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18090 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18093 procedure(
real(RKC)) :: getFunc
18094 type(ninf_type) ,
intent(in) :: lb
18095 type(pinf_type) ,
intent(in) :: ub
18096 real(RKC) ,
intent(in) :: abstol
18097 real(RKC) ,
intent(in) :: reltol
18098 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18099 type(wcauchy_type) ,
intent(in) :: help
18100 real(RKC) ,
intent(out) :: integral, abserr
18101 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18102 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18103 integer(IK) ,
intent(out) :: neval
18104 integer(IK) ,
intent(out) :: nint
18110 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18112 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18115 procedure(
real(RKC)) :: getFunc
18116 type(ninf_type) ,
intent(in) :: lb
18117 type(pinf_type) ,
intent(in) :: ub
18118 real(RKC) ,
intent(in) :: abstol
18119 real(RKC) ,
intent(in) :: reltol
18120 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18121 type(wcauchy_type) ,
intent(in) :: help
18122 real(RKC) ,
intent(out) :: integral, abserr
18123 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18124 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18125 integer(IK) ,
intent(out) :: neval
18126 integer(IK) ,
intent(out) :: nint
18132 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18137 procedure(
real(RKC)) :: getFunc
18138 type(ninf_type) ,
intent(in) :: lb
18139 type(pinf_type) ,
intent(in) :: ub
18140 real(RKC) ,
intent(in) :: abstol
18141 real(RKC) ,
intent(in) :: reltol
18142 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18143 type(wcauchy_type) ,
intent(in) :: help
18144 real(RKC) ,
intent(out) :: integral, abserr
18145 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18146 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18147 integer(IK) ,
intent(out) :: neval
18148 integer(IK) ,
intent(out) :: nint
18154 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint)
result(err)
18155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18159 procedure(
real(RKC)) :: getFunc
18160 type(ninf_type) ,
intent(in) :: lb
18161 type(pinf_type) ,
intent(in) :: ub
18162 real(RKC) ,
intent(in) :: abstol
18163 real(RKC) ,
intent(in) :: reltol
18164 real(RKC) ,
intent(in) ,
contiguous :: nodeK(:), weightK(:), weightG(:)
18165 type(wcauchy_type) ,
intent(in) :: help
18166 real(RKC) ,
intent(out) :: integral, abserr
18167 real(RKC) ,
intent(out) ,
contiguous :: sinfo(:,:)
18168 integer(IK) ,
intent(out) ,
contiguous :: sindex(:)
18169 integer(IK) ,
intent(out) :: neval
18170 integer(IK) ,
intent(out) :: nint
18181end module pm_quadPack
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
This module contains relevant mathematical constants.
character(*, SK), parameter MODULE_NAME
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
integer(IK), parameter MAXLEN_EPSTAB
The scalar integer of default kind IK, containing the maximum size of the Table of Epsilon algorithm.
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
This is the indicator type for generating instances of objects that indicate the use of the negative ...
This is the indicator type for generating instances of objects that indicate the use of the positive ...
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
This is the derived type for constructing objects that signify the computation of the integral an arb...
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
This is the derived type for constructing objects that signify the computation of the integral an arb...